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PREFACE 



The APL Handbook of Techniques is intended to augment the "bag of tricks" of the active APL user. 
As in the case of the primitive functions, the defined functions illustrated in this handbook may be used 
without full understanding of their methodology; however, any time spent analyzing the statements will be 
richly rewarded with new insights into the power of APL and the amazing foresight of Ken Iverson and 
Ad in Falkoff. 

What you are holding is a compendium of hundreds of functions submitted by professional program- 
mers within IBM. These many contributions have been generalized, extended and harmonized into families 
(such as Text-Editing, Logical Operations, Report Formatting, Multi-Precision Arithmetic and Workspace 
Management). That APL is an art form is quickly evident by examining the various styles represented. 

Various criteria were used in selecting and refining these functions: elegance, space and execution 
time. However, as you become familiar with each of the functions, you should experiment with your own 
variations, thereby imparting a personal style into your work. Once understood, the functions can be modi- 
fied with confidence in the integrity of APL and its predictability. 

Preparing this collection has been a very rewarding experience for me. I have often said that I am the 
greatest benefactor of this publication, as many of the functions were used to prepare the book itself. But 
the task was aided by the many contributors and the assistant editors. I would like to thank Len Lewis of 
DPD Scientific Marketing who believed from the beginning that such a publication was indeed possible. 
For the idea and the model, thanks to Curt Bury and Dr. Kent Haralson, respectively. For their contribu- 
tions and long hours of testing, thanks to Larry Breed, Norm Brenner, Sylvia Eusebi, Ed Eusebi, Len Gilman, 
Tim Holls, Rainer Kogon, Dieter Lattermann, Beth Luc, Blair Martin, John McCleary, John McPherson, 
Joe Myers, Don Orth and Harry Saal. 



Dave Macklin De gust/bus non est disputandum 

December, 1977 



INTRODUCTION 

There are many publications from which one can learn how the operators work, and how to combine characters 
to form APL expressions, but few are written with the intention of developing the reader's style. 

This handbook contains no explanation of the APL primitives; we assume you already understand them. Similarly, 
fundamental operations are not emphasized. The goal of this handbook is to furnish you with a collection of 
meaningful, useful APL functions, each demonstrating a particular technique. By carefully examining each function, 
you should begin to expand your APL awareness, thus becoming more proficient in the use of the language. 

As with any programming language, there is no single way to solve a problem. However, preferred methods yield 
elegant functions which are either time or space efficient. Conversely, some approaches produce APL functions 
which can be inefficient or limited in scope. To improve your style, study this book and others like it. Examine 
functions written by experienced APL problem-solvers; modify those functions to suit your own needs. Fine tune 
your ability to recognize most efficient APL technique for solving that problem facing you. 

Variable Usage 

Within this publication you will notice both "global" and "local" APL variables. Without the global concept, 
variables which are used by sets of functions would have to be identified on each page they are used. Some of the 
global variables are: 

AV+ ' ABCDEFGHIJKLMNOPQRSTUWXYZ' 

ALF+AV, ' A ABCDEFGHIJKLMN0PQRSTUVWXYZ Q1 23456789 » 

DIGITS* - ! 01 234567 8SABCDEFGHIJKLMN0PQRSTUVWXYZ ! 

BK (BACKSPACE CHARACTER)- SEE 1TCC PAGE 44 

CR (CARRIAGE RETURN) " " 

ID (IDLE CHARACTER) " " 

LN (LINEFEED CHARACTER) " " 

TB (TAB CHARACTER) " " 



Programming Note 



A very interesting technique is employed in this publication. It can help you to understand how APL functions 
work. On many pages, you will find an "ANALYSIS" section. The first line of this section will be the expression 
being analyzed. As you read on, you will notice a line-by-line explanation of the interim results, as though the 
expression were being executed. By carefully examining this analysis, you will learn how and why the function 
accomplishes the stated technique. 



the information contained in this document has not been submitted to any formal IBM test. 
Potential users should evaluate its usefulness in their environment. 



FORMAT OF EACH PAGE 



Each page of this handbook contains exactly one primary and, optionally, one 
or more subordinate (secondary) functions. If they appear, subordinate functions 
are located to the side of the page. To locate any function (primary or 
subordinate), refer to the complete subject index or the KWIC index in the 
Appendix. 



abstract 



function name 
calling sequence 
what it does 

APL code 



H 

H 

H 



what occurs during 
function execution 



subordinate function 
name 



DIFF 



&ULXAI: 



DIFFERENCES BETWEEN ADJACENT ELEMENTS C UNSCAN I 
R+DIFF A 



» A IS ANY NUMERIC STRUCTURE. 

o R HAS ONE FEWER COLUMNS THAN A, AND CONSISTS OF THE 
SUCCESSIVE DIFFERENCES, Ai . . ; . . ;I + 1]-,A[ ..;..-!] 



ZMG.11Q.M-- 

V R+DIFF A 
Cl] J?«-((-pPiO*"l ) + -./! -KM 
7 

DIFF 11 22 



11 

"1 

~1 
~1 



DIFF -3 4pil2 
"1 "1 
"1 "1 
"1 ~1 



V R+UNSCAN V 
Cl] R+ViniOl.DIFF V 
[2] A V+++\R 
V 



subordinate function 
APL code 



MA&fflfi: 

Cl] /?«-(( -ppi4)t-l) + -i4-l<M 



53 


25 18 24 


40 


11 9 20 


51 


53 14 3 


Cl] 


R+({ -ppi4)+~l) + -/l-l4>4 


25 


18 24 53 


11 


9 20 40 


5 5 


14 3 51 


[1] 


#■«-(( -pp/lH~l) + -/l-loM 


28 


7 "6 "29 


29 


2 "11 "20 


~2 


39 11 "48 


[13 


ff«-((-ppi4) + ~l) + -4-l<M 




SIGNS CHANGED 


"28 


~7 6 29 


"29 


"2 11 20 


2 


"39 "11 48 


Cl] 


R+{(lPpA)+~l)*-A-l$A 


~2 




Cl] 


#<-((-ppil) + "l) + -X-l<M 




PADDED 


"1 




Cl] 


J?«-((-pp4) + ~lH-il-l<i>/l 


"28 


"7 6 


"29 


"2 11 


2 


"39 ~11 
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Section I 



Matrix Manipulation Functions 



ADDCOLS 



ADD COLUMNS TO A MATRIX VECTOR OR SCALAR 



SZ&T£X: 



Z+A ADDCOLS B 



CONVERTS SCALAR AND VECTOR RIGHT ARGUMENTS INTO ONE-ROW 
MATRICES AND PADS THEM OUT ON THE LEFT (POSITIVE LEFT 
ARGUMENT) OR ON THE RIGHT (NEGATIVE LEFT ARGUMENT). RIGHT 
ARGUMENT MAY BE EITHER NUMERIC OR CHARACTER. 
USES: V MATRIX 



IMQZION : 

V Z+A ADDCOLS B 
[1] Z+((l+pB),-A+(xA)xlipB)+B+MATRIX B 
V 
V 



RUMPLE : 

3 ADDCOLS 2 3pi6 
12 3 
4 5 6 

"2 ADDCOLS 3 4 5 7 
3 4 5 7 

ADDCOLS 2 3p» ABCDEF* 



AM&Z&ZS.'- 

fl THE RIGHT ARGUMENT IS CONVERTED TO A MATRIX, THEN IS PADDED 

fl ON THE LEFT OR RIGHT, OR MADE EMPTY, 

fl AS SPECIFIED BY THE SIGNUM OF THE LEFT ARGUMENT ( xA ) . 



ADDROWS 



ADD ROWS TO A MATRIX VECTOR OR SCALAR 



SYNTAX: 



Z+A ADDROWS B 



CONVERTS SCALAR AND VECTOR RIGHT ARGUMENTS INTO ONE-ROW 
MATRICES AND PADS THEM OUT ON TOP (POSITIVE LEFT ARGUMENT) 
OR ON THE BOTTOM (NEGATIVE LEFT ARGUMENT). RIGHT ARGUMENT 
MAY BE EITHER NUMERIC OR CHARACTER. 
USES: ^MATRIX 



FUNCTION : 

V Z+A ADDROWS B 
[1] Z+((-A+(xA)xl + pB),l±pB)+B<rMATRIX B 

V 



EXAMPLE : 

2 ADDROWS 2 2pi4 




1 2 
3 4 

M' 
\ABCDEF 



2 ADDROWS 'ABCDEF* 




3 

2 1 



1 ADDROWS 3 4 5 6 

4 5 6 

pi ADDROWS 3 



ANALYSIS: 



R THE RIGHT ARGUMENT, CONVERTED TO A MATRIX, IS PADDED 

n AT THE TOP OR BOTTOM OR MADE EMPTY, AS 

n SPECIFIED BY THE SIGNUM OF THE LEFT ARGUMENT (*A) . 



CCAT 



CATENATE BY COLUMNS [ VERTAB CMATRIX ROWFORM ] 



S.YN.T.AK ' 



R<-A CCAT B 



IHNQZIQNS : 



SIDE-BY-SIDE CATENATION OF GENERAL STRUCTURES AND TYPES 

SCALARS WILL BE REPLICATED IF TYPES AGREE. 

VECTORS BECOME ONE -COLUMN MATRICES BEFORE CATENATION. 

NUMERIC TYPES WILL BE PADDED WITH ZEROS. 

CHARACTER TYPES WILL BE PADDED WITH BLANKS. 

NUMERIC TYPES WILL BE FORMATTED IF TO BE CATENATED WITH 

CHARACTER TYPES. SEE VBESIDE 

A MATRIX IS RETURNED. 



V R+A CCAT B 

[1] A COLUMN CATENATION, SCALAR REPLICATION 

[2] VERTAB 

[3] CFORMAT V VERTAB 

[4] CMATRIX [1] ft ASSUMES A AND B HAVE 

[5] ROWFORM [2] ADVERT A A B+VERT B 

[ 6 ] R+A , B V 



BEEN LOCALIZED 



EXAMPLES- 



£/«-'*D f 
V+'ABC 
M+2 3p'X f 
T*-§M 



V ROWFORM ;R 
[1] ft ASSUMES A AND B HAVE BEEN LOCALIZED 
[2] +0 IF 0=(ppi4)x PP B 
[3] A+{R 9 l+pA)+A A B«-( (/?«-( l + pi4)l"l + pB) ,l + pB)+5 

V 



A* 

So 

Co 

A* 
BU 
C 

AXXX 
BXXX 
C 

XXXXX 

XXXXX 

XX 

°XXX° 
oXXX° 



V CCAT S 



V CCAT U 



V CCAT M 



M CCAT T 



S CCAT M CCAT S 



7 CCAT 1 7 



[1] 
[2] 
[3] 



V R+CMATRIX 
ft ASSUMES LOCALIZED A AND B 



± % A+MATRIX 
±*B+MATRIX 



A' IF 
B'lF 



0*ppA 
0*ppF 



CHAR 



BUILD CHARACTER ARRAY TO NUMERIC PATTERN 



SIN Til 



R+K CHAR N 



o DISPLAYS OR OTHER STRUCTURES CAN BE FASHIONED FROM LOGICAL 

OR NUMERIC STRUCTURES, LATER TO BE OVERLAID BY V FILLS . 
o USES: VONESIN VA 



ZILti.QZlQ.ti. ' 

V R+K' CHAR N;UI0 
[1] A K IS SINGLE CHARACTER TO BE PLACED 
[2] A ACCORDING TO POSITIONS OF ONES IN N 
[3] i?«-(x/ p tf)p' »A DI0<-O 
[4] R10NESIN,N1+K 
[5] fl«-(pfl)p7? 



EX£MP£lZ : 



PATTERN 
1 



1 



J 



X X 
X X 



*X X CHAR PATTERN 



DIFF DIFFERENCES BETWEEN ADJACENT ELEMENTS C UN SCAN ] 



SYNTAX-. R+DIFF A 



o A IS ANY NUMERIC STRUCTURE. 

o R HAS ONE FEWER COLUMNS THAN A , AND CONSISTS OF THE 
SUCCESSIVE DIFFERENCES, At . . ; . . ;I+1 1-Al . . ; . . ; J] 



FUNCTIONS: 



V R+DIFF A V R+UNSCAN V 

[1] /?«-(( -pp4) + lH(l<M)-i4 [1] i?^[D-Z"0] 9 £X^ 7 

V [2] A 7<--»-+\J? 

V 
EXAMPLE '- 

DIFF 11 22 
11 

DIFF -3 4pil2 
"1 _1 1 
*1 _1 "1 
111 

ANALYSIS: DIFF 3 4pl2?99 

[1] R<-((-ppA)i~l)±(l$A)-A 

51 54 4 87 

80 68 37 96 

35 38 20 75 

[1] i?«-((-ppi4)+ lH(l$4)-i4 

54 4 87 51 
68 37 96 80 
38 20 75 35 

[1] i?^((-ppA)i~lH(l<M W 

ONE TOO MANY COLUMNS 
3 50 83 _36 
12 "31 59 _16 
3 ~18 55 40 
[1] /?-«-( (^PPi*)^ 1H(1<M)-^ 

"2 

[1] i?«-U-pp4M l)+(l<|>i4)-i4 

F£i? 4tf7 STRUCTURE 
1 

3 ~50 83 

12 _31 59 

3 18 55 



EDIT EDIT LATENT EXPRESSION OR CHARACTER STRUCTURE C SEDIT ] 

SYNTAX: EDITED+EDIT UNEDITED 

o LATENT EXPRESSIONS AND OTHER CHARACTER STRINGS ARE OFTEN 
DIFFICULT TO MODIFY, {CHANGE, ADD, DELETE), ESPECIALLY 
WHEN QUOTATION MARKS ARE INVOLVED. EDIT PERMITS YOU TO 
DEAL WITH THE FINAL APPEARANCE OF THE VECTOR. 

o VECTORS MAY EXPAND OR CONTRACT. 

o USE V 'MED IT TO MODIFY MATRICES. 

FUNCTIONS : 

V EDITED+EDIT UNEDITED i SLASH 

[1] n+EDITED+{(+/ ' '=SLASH) + UNEDITED) ,?},{? ,SLASH+-E)±U<-UNEDITED 
V 

V EDITED+SEDIT UNEDITED -, SLASH 

[1] pi SAME AS EDIT, BUT INSERT IS AN EXECUTABLE EXPRESSION 
[2] n+EDITED<-{{+/' '=SLASH)\UNEDITED) , (iD) , ( p ,SLASH+ft) +D+UNEDITED 
V 

EXAMPLES : 

A CHARACTER VECTOR WITH QUOTES WOULD HAVE TO BE KEYED, THUS: 
U+A+'HE SAID, ' ' ♦ 'HELP ME, I' 'M DROWNING 1 . ' " " 
HE SAID, 1 'HELP ME, I'M DROWNING 1 . 11 

A+EDIT" {TO CREATE ITEM) 

{OPPORTUNITY TO DELETE) 
{OPPORTUNITY TO ADD, NOW) 
HE SAID, » 'HELP ME, I'M DROWNING. ' ' 
HE SAID, "HELP ME, I'M DROWNING'." {FOR PROOFREADING) 

A+EDIT A 
HE SAID, "HELP ME, I'M DROWNING 1 ." 

{SPACE TO INSERTION POSITION) 
PLEASE 
HE SAID, "HELP ME PLEASE, I'M DROWNING'.' ' 

A+EDIT A 
HE SAID, "HELP ME PLEASE, I'M DROWNING 1 ." 

{SPACE TO INSERTION POSITION) 
PLEASE 
HE SAID, "PLEASE HELP ME PLEASE, I'M DROWNING'." 

A+EDIT A 
HE SAID, "PLEASE HELP ME PLEASE, I'M DROWNING'." 

/////// {TO DELETE) 

{NO INSERTION) 
HE SAID, "PLEASE HELP ME, I'M DROWNING 1 ." 

SEDIT 'TYPEWRITER IS A X-LETTER WORD.' 
TYPEWRITER IS A X-LETTER WORD. 

I 
?p» TYPEWRITER' 
TYPEWRITER IS A 10 -LETTER WORD. 



ERECT 



ERECT WORD MATRIX FROM CHARACTER STRUCTURE [ DLTMB .] 



SYNTAX 



R+ERECT A 



BUILDS TABLE TEAT CAN BE ADDRESSED RANDOMLY OR SEQUENTIALLY 

INPUT WORD SEPARATORS ARE SINGLE OR MULTIPLE BLANKS 

INPUT NEED NOT BE A VECTOR. 

HIGH-SPEED DESIGN COMPUTES ADDRESSES. (SEE V SHAPE) 

USES: ID IFF V 'DLTMB VA 



FUNCTIONS: 



V R+-ERECT A ;UI0 iL ;S ;D iCOLS ;ROWS ; Z 
[1] A AVOIDS OUTER PRODUCT FOR SPEED; ASSUMES BLANK DELIMITERS 
[2] COLS+UD+ 1+DIFF 9 S\\ROWS+1+ l + S-M-XL-*-' * =A+DLTMB A A UI0+1 
[3] Z+-(ROWS*COLS)p' ' 

[4 J Zl((~L)/ + \L\COLS-~l+D) + \ + /~Ll+(~L)/A 
[5] R+-(ROWS,COLS)pZ 
V 

V R+DLTMB A\Z 
[1] A DELETE LEADING, TRAILING, MULTIPLE BLANKS 
[2] i?<-l>KZvl<j)Z«-4* f MM"*-, 1 ' ,4 
V 



EXAMPLE : 



M 
VFORM VARIABLE FORMAT BY ROW OF A MATRIX [ ESCAPE ESCAPEX 1 

XVEC EXPAND LOGICAL VECTOR 

ZDIV ZERO TOLERANT DIVISION [ CDIV ] 

TIME'J+ERECT M 1 
10 MSEC BYTES 

TIME'J+" '' SHAPE J' 
2 2 MSffC SITE'S' 

tffltfCT Af 

M AXELS' 

FORMAT 

BY 

ROW 

OF 

A 

MATRIX 

[ 

ESCAPE 

ESCAPEX 

] 

XVEC 

EXPAND 

LOGICAL 

VECTOR 

ZDIV 

ZERO 

TOLERANT 

DIVISION 

I 

CDIV 

] 



(NOTE USE OF Z AS LOCAL VARIABLE TO SAVE TIME AND SPACE) 



FIRSTM SELECT FIRST OR ONLY APPEARANCE IN MATRIX [ FIRSTV ] 



SYNTAX: L+FIRSTM M 



RETURNS LOGIC VECTOR THAT CAN SELECT: 
o ROWS OF A MATRIX, IGNORING DUPLICATES 
° THEIR INDICES 
o CORRESPONDING ROWS OF INVERTED FILES 

SEE VRIOTA 



FUNCTIONS: 



V L+FIRSTM M V L+FIRSTV V 
[1] L«-v/<\Ma.=$M [1] L+(ViV) = \pV 

V FOR VECTOR ARGUMENTS. 

SEE 1DREP. 

EXAMPLES : 

U+M+ERECT'TOM DICK TOM HARRY DICK HARRY' 
TOM 
DICK 
TOM 
HARRY 
DICK 
HARRY 

(FIRSTM M)/M 
TOM 
DICK 
HARRY 

(FIRSTM AO/il + pAf 
12 4 

FIRSTM M 
110 10 

£E£LI§.ZS: (FIRSTM Af)/Af 

[1] L+vf<\MA.=$M 

TRANSPOSE ASSURES CONFORMITY 
TDTHDH 
010 AI A 
MCMRCR 
K RKR 
Y Y 
[13 L+vi<\M\ L =jm 

10 10 
10 10 

10 10 
10 1 
10 10 
10 1 

~<\ CAPTURES POSITION OF FIRST 1 ENCOUNTERED . 

11 1 LOGIC VECTOR TO SELECT ROWS 
TOM 

DICK 
HARRY 



FRAME 



FRAME AN ARRAY [ MATRIX CHARACTER ] 



SYNTAX 



Z+FRAME A 



FUNCTIONS 



EMPLOYS THE CHARACTERS »_ | ' TO BUILD A FRAME AROUND 
ANY ARRAY AFTER RESHAPING IT AS A MATRIX. 
NO DATA IS TRUNCATED. 

USES: ^CHARACTER ^TABULATE VADJUSTUP 1ADJUSTD0WN 
1FRAMETEST S/MATRIX 1IF 



■1]Z 



V Z+FRAME A\UI0 
[1] +L1 IF CHARACTER 
[2] Z+TABULATE Z 
[3] L0:Z+1 ADJUSTUP 1 
[4] Z«-' | ' ,(Z,[1]'_») 
[5] +0 A Z+(l+pZ)ADJUSTDOWN Z 
[6] L1:+L0 IF 0=FRAMETEST Z+MATRIX 

V 



Z+A 

,inio* 
1 1 » 



Cl] 



en 

[2] 



T+-CHARACTER 
T+0*0\0pA 



Z+MATRIX A 
Z<-((x/ 1 + Z) 
RESULT HAS 



,~1 + Z«-1 I,p4)p4 
2W0 DIMENSIONS 



EXAMPLE : 



LV+'THIS IS A LITERAL VECTOR 1 
FRAME LV 



THIS IS A LITERAL VECTOR 



ANALYSIS: 



fi LItftf 6 CHECKS WHETHER THE ARGUMENT, IF CHARACTER, 

fi T£ ALREADY FRAMED. 

fi LJtftf 3 FRAMES THE TOP , PLACING THE CHARACTER ' I ' 

fi Iff I#£ *Ti?ST 4ffZ? L4ST COLUMNS. 

fi LITE'S 4 Ai\7Z? 5 FRAME THE SIDES AND BOTTOM. 



FRAME TEST CHECKS A MATRIX FOR FRAMING 



SYNTAX: Z+FRAMETEST A 



EXAMINES A MATRIX FOR TEE PRESENCE OF FRAMING ELEMENTS 
1 ]_ ' AROUND ITS PERIPHERY AND RETURNS A 1 IF PRESENT, 
OTHERWISE. 
USES: VIF 



FUNCTION : 












V Z+FRAMETEST A 








[1] 


Z+~ 


-DI0+-1 








C2] 


->o 


IF 


0=*/pA 








C3] 


+ 


IF 


All',11* 1 I 


t 






[4] 


->o 


IF 


1*A/,U[1 


,l+p4; 


;].M[' 


;i 


[5] 


Z+l 











"1 + Pil])6 ' |_" 



EXAMPLES : 




FRAMETEST 


a: 

i ~ — i 


3 Hp'ABCD' 


i i 

I SALES | 
1 1 




FRAMETEST 
1 

Y 
SALES 


X 


12 3 
4 5 6 

FRAMETEST 



7 



ANALYSIS : 

ft LltftfS 2,3,4 SOT !Tff£ RESULT TO IF Ttfff ARGUMENT IS EMPTY, OR THE 
ft [1;1] ELEMENT IS NOT f | * OR THE ELEMENTS IN THE FIRST AND LAST ROWS, 
ft FIRST AND LAST COLUMNS ARE NOT ALL MEMBERS OF ! 1 _~ ' . OTHERWISE THE 
n RESULT IS 1. 



10 



GRADEUP 



GENERATE ASCENDING ROW INDICES [ AV ALE NFORM LJNFORM ] 



SYNTAX : 



I+C GRADEUP K 



FUNCTIONS 



TO SORT A LEFT-JUSTIFIED MATRIX ALPHABETICALLY 
C IS A COLLATING SEQUENCE; K IS A CHARACTER MATRIX 
IF UNIQUE DISTINCTIONS OCCUR ONLY AT RIGHT SIDE, 
AND IF THE COLLATING SEQUENCE IS LONG, IT MAY BE 
NECESSARY TO SORT IN MORE THAN ONE PASS, FIRST 
ACCORDING TO THE RIGHTMOST COLUMNS. 
USES : INFORM 



V I+C GRADEUP K 
[1] X«-AC NFORM K 
V 



V N+C NFORM K;UI0 
[1] N+(pC)±C\$K A DIO+-0 
V 



V R+C LJNFORM K 
Cl] R+C NFORM( (l\pR) ,±1)\R+-ERECT ,K, ' ' 
V 



EXAMPLES : 



A V+ f ABCDEFGHIJKLMNOPQRSTUVWXYZ f 
n A USEFUL GLOBAL, WITH 11-COLUMN RESOLUTION 

ALF+A V , » &„ABCDEFGHIJKLMNOPQRSTUVWXYZL01 23456789' 
n USED BY WARS .. .LESS RESOLUTION BUT MORE CHARACTERS 



3 2 1 

DICK 

HARRY 

TOM 



TOM 

HARRY 

DICK 



AV GRADEUP 3 lp'ZYX' 

U+A+AZAV GRADEUP A+' 'SHAPE'TOM DICK HARRY 1 ;] 
(ALPHABETICALLY SORTED) 

Al$AV GRADEUP A; ] 

(REVERSE ORDER) 



11 



INDEX 



COLUMN INDEX IN MATRIX B WHOSE MEMBERS ALL BELONG TO A 



SYNTAX: 



Z*-A INDEX B 



RETURNS THE INDEX POSITION OF EACH COLUMN OF B ALL OF WHOSE 
ELEMENTS ARE IN A . B MUST BE A MATRIX. THE SHAPE OF A IS 
NOT RESTRICTED. THE ARGUMENTS MAY BE EITHER CHARACTER OR 
NUMERIC . 



FUNCTION 





V Z+A INDEX B 






[1] 


Z+( AfBeA)/ \ltpB 
V 






FXAMPLE : 








A+\10 








B+?3 8pil5 








B 






1 


113 5 


1 


M- 4 


9 


8 7 11 9 


12 


3 1 


2 


112 1 
A INDEX B 


3 


1 7 


1 2 


3 5 7 8 








M ! INDEX C+3 


6p ' ABCDEF 'AHIJKL ABCXYZ » 


1 


C 






ABCDEF 






AHIJKL 






ABCXYZ 






ANALYSIS: 







a 'ANDS 1 OVER THE COLUMNS OF THE LOGICAL MATRIX CREATED BY BeA , 

fi THEN USES COMPRESSION TO SELECT THE CORRESPONDING COLUMN INDICES 



12 



MEDIT 



EDIT MATRIX 



SYNTAX : 



R+KD MEDIT M 



FUNCTION 



o RETURNS A MODIFIED FORM OF STRUCTURE M AS A MATRIX. 
o KD IS A PAIR OF INTEGERS, THE FIRST, K, SIGNIFIES THE 

NUMBER OF ROWS OF M PRECEDING THE ONE TO BE CHANGED, 

INSERTED, OR DELETED. THE SECOND, D, IS THE LINE NUMBER 

TO BE DELETED. 
o THE KEYBOARD WILL UNLOCK FOR THE EXPRESSION THAT WILL 

GENERATE THE LINE(S) TO BE INSERTED. 
o THE INSERT MAY BE AN ALTERED FORM OF THE LINE(S) DELETED. 
o WHEN K=D 9 THE INSERT WILL APPEAR AFTER LINE K. 
° WHEN K<D, D-K LINES WILL BE DELETED BEFORE ACCEPTING THE 

INSERT. (IF K>D, K-D ORIGINAL ROWS WILL APPEAR BEFORE AND 

AFTER THE INSERT. ) 
o USES: V MATRIX ION VA 



V R+KD MEDIT M;UI0 
[1] n MATRIX EDIT (DELETE, INSERT, CHANGE) 
[2] R+(((l+KD),l + pM)+M)ON(±\n)ON((l+KD) t 0)+M+MATRIX M A UI0+1 

V 



EXAMPLES 



10 



<j>M[2 
1 



1 2 MEDIT 3 4pil2 
(INSERTING 
3 4 
11 12 
1 MEDIT 3 4pil2 
( INSERTING 
4 



2 

10 

1 

2 



6 
10 

1 
] 

2 

7 
10 

3 

2 

6 
10 



2 

6 
10 

1 
THIS 



3 



7 

11 







12 



2 MEDIT 3 4pil2 
( INSERTING 
3 4 
6 5 
11 12 
MEDIT 3 4pil2 
(INSERTING 



3 
7 

11 

3 
7 

11 



12 


8 
12 



(DELETING ROW 2) 
NOTHING) 



1) 



FUNCTION OF EXISTING ROW) 



(SUPERIMPOSING 
ZEROS) 



FIRST THREE ROWS) 



i + 
DEF 



1 MtftflT 
75 Ttftf 



2 3pMBCZ?ffF f 
LETTER 5 f 



JS THE" LETTER B 
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M2V 



COMPRESS CHARACTER MATRIX EXPAND RESULT [ V2M 



SYNTAX: 



V+M2V M 



AND 



M+V2M V 



THESE COMPLEMENTARY FUNCTIONS ALLOW TWO-WAY CONVERSION 
BETWEEN CHARACTER MATRICES AND CHARACTER VECTORS. 
M2V: CONVERTS A CHARACTER MATRIX M TO A CHARACTER VECTOR V. 
EACH ROW OF M, WITH TRAILING BLANKS OMITTED, BECOMES A 
'LINE' 1 IN V 9 ENDED BY A CARRIAGE RETURN. 
V2M: CONVERTS A CHARACTER VECTOR V TO A CHARACTER MATRIX M. 
EACH 'LINE' (A CHARACTER STRING ENDING IN A CARRIAGE 
RETURN) BECOMES A ROW OF M, WITH PADDING AS REQUIRED. 
BOTH V AND M WILL APPEAR THE SAME WHEN DISPLAYED, BUT THE 
VECTOR REPRESENTATION IS USUALLY MORE ECONOMICAL IN STORAGE 
THE GLOBAL CR MUST EXIST IN WORKSPACE. (SEE 1TCC PAGE). 



FUNCTIONS : 



V V+M2V M 

[1] 7«-"l + ( ,<i>l,v\' '*<$>M)/ ,M,CR 
V 

V M+V2M 7; QIC 
[1] UI0+1 

[2] Af«-(pAOp( ,M+M° .>\[ /O^+M-l + O, ±\M*-M/ i pAf ) \ (~AH-7=££ )/ V+V ,CR 

V 
EXAMPLES : 

U+V+'LINE 1.' ,CR,'LINE NUMBER 2' 
LINE 1 . 
LINE NUMBER 2 

PV 
21 

U+M+V2M V (CONVERT VECTOR TO MATRIX) 

LINE 1. 
LINE NUMBER 2 

pM 
2 13 

V2+M2V M (CONVERT MATRIX BACK TO VECTOR FORM) 



\/V=V2 



(COMPARE TWO VECTORS) 



ANALISIS : 

M2VZ11: A COLUMN OF CARRIAGE RETURNS IS CATENATED ONTO M AND THE RESULT 
RAVELED AND COMPRESSED BY A BOOLEAN VECTOR TO REMOVE TRAILING 
BLANKS IN EACH ROW. THE FINAL CARRIAGE RETURN IS THEN REMOVED. 

V2M121: AFTER A CARRIAGE RETURN IS CATENATED ONTO V, IT IS SEARCHED FOR 
CARRIAGE RETURNS AND THEY ARE COMPRESSED OUT. THIS RESULT IS 
THEN EXPANDED BY A BOOLEAN VECTOR WHICH HAS THE EFFECT OF PADDING 
LINES TO THE SAME LENGTH. THE RESULT IS RESHAPED INTO A MATRIX. 
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PRE ED IT 



PREPARE MATRIX FOR FUNCTION-LIKE EDITING [ POSTEDIT ] 



R+TNAME PREEDIT M 



TNAME IS A TEMPORARY NAME TO BE ASSIGNED TO A COPY OF THE 

MATRIX, M, SO THAT IT MAY BE EDITED AS IF IT WERE A 

DEFINED FUNCTION. TNAME IS A CHARACTER STRING. 

WHEN EDITING IS COMPLETE, KEY: R+POSTEDIT TNAME, 

WHERE R CAN BE THE OLD OR NEW NAME OF THE EDITED MATRIX. 

USES: ^ESCAPE VON 



ZVNCTION& : 

V R+TNAME PREEDIT M 
[1] {TNAME , ' IN USE*)ESCAPE 0*UNC TNAME 
[2] R+UFX TNAME Otf ' A ' , vM 



V RIPOSTED IT TNAME; J 

[1] 'NOT A NAME* ESCAPE-CHARACTER TNAME 

[2] (TNAME,' NOT A FUNCTION ' )ESCAPE 3*UNC TNAME 

[3] R+l 1+QC7? TNAME 

[4] J+UEX TNAME 



KIAMZWES ' 

A+ERECT'TOM DICK HARRY x 

A 
TOM 
DICK 
HARRY 

B+ x JOE* PREEDIT A 

B 
JOE 

VJ0EIU1 
V JOE 
[1] *TOM 
[21 *DICK 
[3] f\HARRY 

V 
[4] [A2] 
[2] V 

C+POSTEDIT B 

C 
TOM 
HARRY 



(FOR FUNCTION EDITING) 

(LAMP SYMBOLS PROTECT INTEGRITY OF DATA) 

(TO DELETE ROW 2) 

(LAMP SYMBOLS HAVE BEEN REMOVED) 
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RCAT 



CATENATE STRUCTURES BY ROWS [ COLFORM VERT 3 



SYNTAX 



R+ A RCAT B 



o OVER- UNDER CATENATION OF GENERAL STRUCTURES AND TYPES. 

o SCALARS WILL BE REPLICATED. 

o PADDING WILL BE BLANK FOR CHARACTERS, ZERO FOR NUMBERS 

o NUMERIC TYPES WILL BE FORMATTED IF TO BE CATENATED TO 

CHARACTER TYPES. SEE: VON 1CCAT 

o A MATRIX IS RETURNED. 

o USES: 1CF0RMAT 1CMATRIX 1C0LF0RM 1VERT 



FUNCTIONS 



V R+A RCAT B 
[13 A ROW CATENATION ^SCALAR REPLICATION 
[2 3 C FORMAT 

[3 3 C MATRIX 

[ 4 ] COLFORM 
[53 Z'R+VERT A, • A(0*(ppA) + ppB)/'LUlOl' ), '£' 

V 

V COLFORM ; R 

[13 A ASSUMES A AND B HAVE BEEN LOCALIZED 
[23 +0 IF 0=(pp4)x pp £ 

[3] A+((l+pA) ,R)iA A B+( (li pB) ,R+(H>pA)[ lipB)+B 
V 

V Z+VERT X 

[13 Z+((pX)Al = PpX)pl)pX 
V 



EXAMPLES 



o o 

*n 
*d 

ABC 

1 
1 



5 i?Ci47 J/ 



U RCAT V 



1 RCAT 1 5 
111 
3 4 5 

5 tfC^ i 5 



ooooooooo 

12 3 4 5 

U RCAT 1 5 
*D 

12 3 4 5 



16 



REPL REPLACE ALL OCCURRENCES OF ELEMENT IN ARRAY 



SYNTAX: R+VV REPL A 



VV IS A TWO-POSITION CHARACTER OR NUMERIC VECTOR. 

A IS AN ARRAY OF THE SAME TYPE. 

ALL APPEARANCES OFliVV WILL CHANGE TO ±±VV . 



FUNCTION 



V R+VV REPL A 
[1] i?[ (R=liVV)/\pR+-,Al + l±VV 
[2] R+(pA)pR 

V 
EXAMPLES : 

'~~'REPL '-12 34.56' MINUS SIGN BECOMES APL NEGATIVE 
1234.56 

1#7 5 REPL (i3)°.=i3 CHANGE ZEROS TO 1E75 

IRALYSIS: 1 "1 REPL 2 5pl 

[1] Ri(R = liVV) / \pR<-,Al + lAVV 

SEND IN REPLACEMENTS 
"1 
[1] Rt(R=l+VV)/ipR+,Al+l+VV 

10 10 1 
10 10 
[1] Rl(R=l+VV)/\pR+ 9 A]+l+VV 

NOW A VECTOR 
1010101010 
Cl] RL(R=liVV)/ipR+,Al+l+VV 

123456789 10 

[1] i?[(# = l + F7)/ipi?«-,4>l*77 

1010101010 

[i] R £iRzltZ¥.lLit!l <r i A i' t ' 1 + vv 

13 5 7 9 

"1 

[2] R+(pA)pR 

"1 "1 ~1 ~1 ~1 
[2] R+(pA)pR 

2 5 

[2] ^tiEdiE^ 

"1 _0 "1 ~1 
1 "1 
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RIOTA 



MATRIX ROW IOTA 



SYNTAX 



R+X RIOTA Y 



FUNCTION : 



RIOTA EXTENDS TO MATRIX ARGUMENTS THE FUNCTION OF 
DYADIC x (A\B...THE LEAST INDEX IN VECTOR A OF THE 
ELEMENTS(S) IN SCALAR OR VECTOR B) . 

THE RESULT R IS A VECTOR OF THE RESPECTIVE ROW INDICES 
OF THE FIRST OCCURRENCE OF THE ROWS OF Y IN X , IGNORING 
TRAILING BLANKS. IF A ROW OF Y DOES NOT OCCUR IN X, THE 
CORRESPONDING ELEMENT OF R IS SET TO 1+ltp*. 
NON-MATRIX ARGUMENTS ARE RESHAPED. SCALAR AND 
VECTOR ARGUMENTS ARE TREATED AS 1-ROW MATRICES. 
USES: V MATRIX VA 



V R+X RIOTA Y 
CI] Y+MATRIX Y A X+-MATRIX X 
[2] £«-DJ0 + + /~v\(((o lxp*)rpJr) + Y)A.=$((0 l*pY)[pX)+X 



EXAMPLE : 



□J0«-1 



X+3 Hp'AAAABBBBCCCC 
Y+2 5p X CCCC XXXXX 1 
X RIOTA Y 



3 4 



ANALYSIS : 

THE LEFT ARGUMENT, X, IS TRANSPOSED AND BECOMES THE RIGHT ARGUMENT 
IN THE MATRIX INNER PRODUCT CCCC a.= ABC 

XX XXX ABC 

ABC 

ABC 

THE RIGHT ARGUMENT IN THAT EXPRESSION HAS A FIFTH (BLANK) ROW TO 
SATISFY THE INNER PRODUCT REQUIREMENT THAT THE LAST DIMENSION (5) 
OF THE LEFT ARGUMENT MUST BE THE SAME AS THE FIRST DIMENSION OF 
THE RIGHT ARGUMENT. EACH ROW OF THE LEFT ARGUMENT IS COMPARED 
AGAINST EACH COLUMN OF THE RIGHT ARGUMENT GIVING THE MATRIX 
1 

WHICH IS TRANSLATED INTO THE VECTOR 2 3 BY +/~v\. ADDING 
UIO GIVES THE RESULT 3 4 (FOR ORIGIN 1) OR 2 3 (FOR ORIGIN 0). 
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SHAPE SHAPE MATRIX FROM CHARACTER STRING 

SYNTAX: R+C SHAPE X;L 

o X IS A CHARACTER VECTOR COMPOSED OF PHRASES OF VARIABLE 
LENGTH, SEPARATED BY ANY OF THE CHARACTERS IN VECTOR C. 

o A MEMBER OF C MAY EVEN BE PART OF A PHRASE, IF IT IS 
SURROUNDED BY QUOTES IN X. 

o SEE 1ERECT 

IUNQ.TION : 

V R+C SHAPE X\L 

[1] ^((=U* MM )AX€C)/\pX*-X,l + C 

[2] L+[ /R*-R-Uiq,l + ~1+R 

[3] i?«-(0*f?)/0 l + ((pi?),l+L)p( ,(f?o.>(~Dl0) + iZ;),l)\X 

V 

RUMPLES.: 

' % SHAPE* TOM DICK HARRY 1 
TOM 
DICK 
HARRY 

»; , . 'SHAPE 1 SEMICOLON' ' ; ' ' \ COMMA 1 ' , ! ! PERIOD' ' .' " 
SEMICOLON' ',' 
COMMA ' , ' 
PERIOD ' . « 

ANALYSIS : 

Cl]ft 'LOGICAL VECTOR SELECTS 12 21 31 AS END POINTS 

[2] pi MAXIMUM LENGTH COMPUTED AS 12 

[3] 2?«-(0*J?)/0 ""l + ((pf?),l+£)p( , (flo.^Q^ii^* 1 ^* 

123456789 10 11 12 

[3] i?«-(0*i?)/0 ~l-K(pi?),l+i)p( .(?«j L ^(~Ql?)+i£).l)\^ 

111111111111 
111111110000 
111111111000 

C3] /?«-(o*i?)/o "i+((pi?),i+L) P ( . i^ijL=£rQI22±i^2±l } XAr 

1111111111111 
1111111100001 
1111111110001 

[3] R+{Q*R)to i*((p^).i+i)p( i (?«j 1 ^crQI22ii^2±12i? 

SEMICOLON ' ; « ; C0Jlf AM » , ' , PERIOD ' .' ; 

[3] i?-«-(o*i?)/o ~iH£pi?) JL i+L)p( .(fl°.*(~cii0) + iL),i)u 

3 13 

[3] i?+-co*i?)/o i+£(p52jLli^2p£±i?li^i-QI22il52il21? 

SEMICOLON ' ;' ; 
COMMA ' ,' 
PERIOD ' . ' ; 

(71701/ .S'^IP SUPERFLUOUS PUNCTUATION) 19 



ULINE 



UNDERLINE SPECIFIED ROWS OF CHARACTER MATRIX [ U SCORE 1 



SYNTAX: 



R+N ULINE K 



o RETURNS AN EXPANDED MATRIX WITH UNDERSCORES INSERTED, 

AS INDICATED BY N , A VECTOR OF ROW NUMBERS UI0+1 . 
o UNDERLINES WILL NOT APPEAR IN COLUMNS THAT ARE ALWAYS BLANK. 
o GIVEN A CHARACTER VECTOR, 1USC0RE IS MUCH FASTER THAN VULINE, 
° USES: VMATRIX VESCAPEX 1XVEC 1CVEC 1FILLS 

lUNCTIQNS : 

V R+N ULINE K;L;UlO;J;I 
[1] K+MATRIX JK 

[2] "'MATRIX HAS ROWS NUMBERED: » » 9 U ' ESCAPEX-A/NeJ+x I«-(DI0*-1 ) + P# 

C3] £«-(-£«-( 1 XVEC I CVEC 1+N) ,0)\K 

[4] /?«-(-«7\0)+J? FILLS(~L)\{{(J+I>[ /N)+p,N),l+pK)p{v/K*' »)\» ' 
V 

V R+USCORE KV 
[1] i?+-£7,[DX0-O.5]Uy*' «)\.» « 
EXAMPLES : V 

ilMA/ES BESIDE SCORES 
TOM | 4 6 5 6 

£IC£ | 107 8 4 6 2 
#4i?i?J| 18 64 9 

(~l+k+/SCORES)ULINE NAMES BESIDE SCORES 
TOM | 4 60 5 6 

DICK I 107 84 62 



THE WINNER AND HIS SCORES 



HARRY] 18 64 90 

pSCORES 
3 3 A NUMERIC MATRIX 

4 ULINE SCORES 
MATRIX HAS ROWS NUMBERED: 12 3 
3 ULINE SCORES 
4 60 56 
107 84 62 

18 64 90 



AKALISIS, : 

[1] FORCES 2=pp£ 

[2] CHECKS FOR ILLEGAL ROW NUMBERS, PRINTS MESSAGE, THEN ESCAPES. 

C3] GENERATES EXPANSION VECTOR, THEN EXPANDS K. 

[4] REPLICATES UNDERLINES, IF NECESSARY, EXPANDS THEM, THEN MERGES 

THEM WITH THE RESULT OF 1 31, 

AND FINISHES WITH SOME HOUSEKEEPING, IF NECESSARY. 



20 



VFORM 



VARIABLE FORMAT BY ROW OF A MATRIX [ ESCAPE ESC APEX ] 



SYNTAX 



R+F VFORM M 



o THE API FORMAT FUNCTION (▼) ACTS UNIFORMLY ON ALL ROWS OF 
A MATRIX WHILE ALLOWING VARIABLE WIDTHS AND DECIMAL PLACES 
FROM COLUMN TO COLUMN. VFORM PERMITS A UNIFORM WIDTH FOR 
ALL COLUMNS WHILE ALLOWING INDIVIDUAL ROW DECIMAL PLACES. 
M IS A NUMERIC MATRIX. F IS A NUMERIC VECTOR OF THE FORM 
W,D1,N1,D2,N2, .. .WHERE W IS THE FORMAT WIDTH FOR ALL COL- 
UMNS. Dl IS THE NUMBER OF DECIMAL PLACES IN THE FIRST 
BLOCK OF ROWS; Nl IS THE NUMBER OF ROWS IN THE FIRST 
BLOCK, ETC. qF MUST BE ODD, AND THE SUM OF N'S MUST EQUAL 
THE NUMBER OF ROWS IN THE MATRIX. 

o USES 1HANG, ALTHOUGH ^ESCAPE MAY BE SUBSTITUTED . 



FUNCTIONS 



V R+F VFORM M;I;J;UI0 

[1] DICM-0 

[2] 'NOT A MATRIX' HANG 2*ppM 
[3] 'WRONG LENGTH LEFT ARGUMENT 1 HANG ~2 | pF 

[4] F+F101AU l + p* , )*2),2)p.l+F 
[5] 'WRONG ROW COUNT ' HANG{ l + pM)* + / J+F[_ ; 2 ] 

[6] F+Fl ;0 1] 

[7] i?«-(0, (l + pAf)x» » p F)pH-0 

[8] Ll:i?^i?,[0]FCJ;]TMC(+/JtJ-) + i e 7'[J];] 

[9] ->Llx(pJ)>I«-I+l 



EXAMPLES 



C+5 
C 



4p i20 



1 

5 

9 

13 

17 



2 

6 
10 
14 
18 



8 1 

1.0 

5 

9 

13 .00 

17 .00 



3 

7 

11 

15 

19 

1 



12 
16 
20 
2 2 
2. 
6 
10 
14. 00 
18. 00 



[1] 
[2] 
[3] 
[4] 
C5] 



: VFORM 

3. 

7 

11 

15. 00 

19 .00 



4.0 

8 

12 

16 .00 

20 .00 



V MSG ESCAPE CONDITION 

fi WILL LEAVE NO TRACE ... .BETTER TO 
n USE 1HANG TO CHECK DOMAIN ERRORS 

+0 IF-CONDITION 

MSG 

V V QEXP ESCAPEX CONDITION 
[1] +0 IF-CONDITION 

[2] ±QEXP 
[3] + 

[4] pi WILL EXECUTE THE QUOTED 
[5] A EXPRESSION , THEN ESCAPE 
V 



ARIUISIS : 

IN LINE 8, Jill IS THE NUMBER OF ROWS IN THE BLOCK BEING FORMATTED, 
FCI;] IS THE UNIFORM WIDTH AND THE NUMBER OF DECIMAL PLACES FOR THE 
BLOCK. EACH BLOCK IS FORMATTED AND CATENATED TO R IN LINE 8 UNTIL 
THE NUMBER OF BLOCKS EQUALS THE COUNT I IN LINE 9. 
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WIDTH 



MEASURE FORMATTED MATRIX 



SYNTAX 



W+K WIDTH MATRIX 



FUNCTION 



° RETURNS THE ACTUAL WIDTH OF ALL FIELDS AS A VECTOR. 

o BLANK AREAS ARE NOT CONSIDERED SIGNIFICANT . 

o A GLOBAL LOGIC VECTOR CAPABLE OF COMPRESSING 

(THEN EXPANDING) THE FORMATTED MATRIX WILL BE NAMED 
ACCORDING TO THE CHARACTER(S) OFFERED AS K. 

o USES: 1DMZ 



V W+K WIDTH MATRIX iViUIO 
[1] W+ l++/7°.=i 1 t V++ \ ( UI0+1 ), ~DMZ±K , '+V/MATRIX* 1 * '»» 

V 



EXAMPLES ■ 

'£' WIDTH 9 2?MM 
7 5 5 4 

B 
001111111000011111000011111000 01111 



9 2 J MM 

1000.00 87.92 

920.42 87.92 

840.17 87.92 



79. 


.58 


8, 


.33 


80, 


.25 


7 , 


.67 


80, 


.91 


7, 


. 00 



B/9 2 J MM 
1000 .0087 . 9279. 588 . 33 
920.4287 . 9280.257 . 67 
840.1787.9280.917 .00 
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WORD 



SELECT NTH WORD IN CHARACTER STRUCTURE [ DTMB 1 



S.ZNT&K : 



W+NTH WORD K 



o IF WORDS IN A VECTOR ARE DELIMITED BY BLANKS, OR APPEAR 
IN SEPARATE ROWS OF AN ARRAY AND ARE SIMILARLY DELIMITED, 
THEY CAN BE CHOSEN BY THE NATURAL NUMBERS INDICATING 
THEIR POSITION, FROM LEFT TO RIGHT AND TOP TO BOTTOM^. 



FUN.CZIQN.S : 

V W+NTH WORD K 
[13 W+l±(NTH=+\' '=W)/W<rDTMB,' ' ,K 
V 

V R+DTMB KiAiZ 
[13 a DELETE TRAILING AND MULTIPLE BLANKS 
£££#£££: C2] i?«-(Zvl<|>Z«v!*' f )M«-,» ' t K 

V 
2 M?/?0 CM 
2W PICK HARRY 

DICK 

[1] &^l + UTtf = + \ f 

TOW ZW£ Hi4i?7?I 

[1] ^14-(il7TH= + \' 

TOM DICK HARRY 

[1] ^l + (^ri?s + \» 

TOM DICK HARRY 

Ci] tf+i + urjys+v 

TOM DICK HARRY 
[1] tf«-l + (ilOT = + \ ! 



1000100001 
[1] W+l+{NTH=+\* 



1111222223 
[13 W+l+{NTH*+\' 



0000111110 
[13 W+l+{NTH=+\' 



DICK 
[1] W+l*{NT.H= + \' 



*W)/W+DTMB, 
=W)/W+DTMB, 
~^)/^i'DTMB l 
=W)/W+DTMB, 
-W)/W^DTMB f 




-W)/W^DTMB, 



3 3 3 3 3 
=W)/W+DTMB, 




-W)/W<rDTMB, 



=W)/W+DTMB, 






INITIAL BLANK 



,K 



'TRAILING AND MULTIPLE BLANKS OUT 



.K 

,K 

I 

, K 

( 



LOCATION OF ONLY BLANKS 



FIELDS NUMBERED 



COMPARED 



'SELECTION 



,K 



BLANK FIELD -MARKER DROPPED 



DICK 
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ADJUSTDOWN 



EXTEND THE 



IN REPORT FORMATTING [ ROW INDICES ] 



SYNTAX: 



Z<-A ADJUSTDOWN B 



o EXTENDS TO ROW A , TtfE' CHARACTER » | ' J/StfZ? 45 ^ SEPARATOR 

IN MATRIX B 
o USES: VIF V INDEX VROWINDICES VA 



IUNCT.IQNS : 

V Z«-4 ADJUSTDOWN B;C;D;UI0 
[1] -*( 0£C«-l + pZH-B[( ( \A)-1)R0WINDICES Z+B ; ] ) / A DJO^-1 
[2] -*L1 TF C<3 
[3] £Me£)[i3;] 
[4] LI :ZU; ' | 'INDEX /J > ' | ' 
V 

V R+N ROWINDICES M;UI0 
[1] ft FJi?^^ 7 0i? Li4ST tf ROWNUMBER'S OF MATRIX 
EXAMPLES'- C2] i?«-(i?*0 )/#«-#+ iltpM A DI0+1 

V 



12 3 4 \ ABODE 
5 6 7 8| F£# J J 
9 10 11 12 1 KLMNO 



7 ADJUSTDOWN E 
SALES 



12 3 i+MBCfltf 
5 6 7 8| FGHIJ 
9 10 11 12 I KLMNO 



ANALYSIS : 
ft LJtf£ 



1 PJCXS Of/2 7 AND STORES IN D THAT PART OF MATRIX B WHOSE 
ft ROW NUMBERS ARE LESS THAN \A. 

ft LINES 2 AND 3 SELECT THE LAST 3 LINES OF D, WHERE LINE 4 LOCATES 
ft THE COMMON OCCURRENCE OF THE SEPARATOR ' J ' AND EXTENDS 
ft THEM 1 LINE DOWNWARD. 
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Section II 



Report Formatting Functions 



ADJUSTUP EXTENDS ' | » IN REPORT FORMATTING 

&ZITA.X: Z+A ADJUSTUP B 



o EXTENDS SEPARATOR » | » UP ONE LINE FROM ROW A 

IN MATRIX B. 
o USES: VIF VINDEX VROWINDICES VA 



FUNCTION : 

V Z«-d ADJUSTUP BiCiDiUlO 
[1] +0 IF 0£Ol + pZ?+-£[(( IdJ-l + pBJfltff/ItfPItftfS Z«-B;]A QlO+1 
[2] +L1 IF 0*3 
[3] D+Dl i3;] 
[4] I1:ZU; » | 'INDEX £>' I ' 

V 



EXAf£PLE£ : 

S4I£S 



12 3 i+UBCZJff 

5 6 7 Q\FGHIJ 

9 10 11 12UJ&AW0 

3 ADJUSTUP D 

SALES 



12 3 4|>1SCZ?F 
5 6 7 8| F0#I«r 
9 10 11 1 2 | KLMNO 

1 ADJUSTUP 2 ADJUSTUP 3 ADJUSTUP D 

I 

I 
12 3 ^\ ABODE 
5 6 7 8\FGHIJ 
9 10 11 1 2 | KLMNO 

ARAL.1S.IS: 

n LItfF. 1 PICKS 002* 4tfZ? STORES IN D THAT PART OF THE ARRAY B WHOSE 

A ROW NUMBERS ARE GREATER THAN \A. 

a LINES 2 AND 3 SELECT THE NEXT 3 (OR FEWER IF THERE AREN'T 3) LINES, 

a WHILE LINE 4 LOCATES ON THOSE LINES OCCURRENCES OF TRti SEPARATOR • \ f 

a AND EXTENDS THEM UPWARD 1 LINE'. 



26 



BARGRAPH 
SYNTAX : 



PLOT HORIZONTAL INTEGER BARGRAPHS 

R+Q BARGRAPH V 

o PRODUCE HORIZONTAL HISTOGRAMS OR GANTT CHARTS 

o TWO CLASSES OF INPUT (CODED PLUS AND MINUS) TREATED* 

ONE INVISIBLE WHILE THE OTHER IS PLOTTED, 
o THE CHARACTERS USED FOR THE BARS ARE USER-SPECIFIED . 
o THE OUTPUT CAN BE CATENATED TO NAMES, FOR EXAMPLE, 
o USES: VA 



FUNCTION 



V R+Q BARGRAPH V;UIO 
111 fi Q IS CHARACTER TO BE USED FOR BARS 
[2] fi V IS A VECTOR OF POSITIVE AND NEGATIVE INTEGERS 
[3] ft NEGATIVE INTEGERS STORED IN V WILL BE IGNORED 
[4] a THUS THE SAME VECTOR CAN BE USED TWICE 
[5] R+( '2+Q)lV°.*l+\[/VlL niO+0 

V 

ANALYSIS: 'Q 1 BARGRAPH 1 ~2 3 ~4 5 

[5] R+C2 + Q)ZV*.21+\r/V]b mo+o 

1 "~2 3 ~4 5 . 

[5] R+C2*Q)IV° .Zl+xt/VlL UIO+O 



5 

[63 



R+C2iQ)tVo . Srl + iT /7]A QI0«-O 



12 3 4 5 

[5] i?*-( - 2te)C76_ : ji+tr/y]A did^-o 

10 



1 i 1 

11111 

C5] R*-C2 + Q)tV* .Zl+\t /Vlb UIO+O 



WIDTH DETERMINED 
NEGATIVES IGNORED 







SHAPE OF INDEXING 
MATRIX DETERMINES 
SHAPE OF OUTPUT. 



BLANK, Q 
[5] R+C2 + Q)LVo .%l + \t /Vlb niO+0 
D 
ODD 
DDDDD 

FRAMED 'SHAPE'TOM JANE DICK MARY' )BESIDE( « o» BARGRAPH-V)FILLS i U 1 BARGRAPH V 

I ',*— ~ - 

\T0M ID 
\ JANE \oo 
I DICK | ODD 
\MARY ooooo 
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BESIDE PRESENTS TWO STRUCTURES SIDE BY SIDE IN REPORT FORMAT 

SYNTAX: Z+A BESIDE B 

o CAN FORMAT A REPORT WITH ROW HEADINGS AND A SEPARATOR, 

OR SIMPLY JOIN TWO DISPARATE MATRICES. SEE ICC AT 
o USES'. 1PREPARE 1C0MPARE VIF 1ADDR0WS 

EU.ICTIQN : 

V Z+A BESIDE B;I;J 
[1] I+lipA+PREPARE A 
[2] J+1+pB+PREPARE B 
[3] -KL1,L2,L0)IF I COMPARE J 
[4] L0:->L2 A B+(I -J)ADDROWS B 
[5] L1:A+{J-I)ADDR0WS A 
[ 6 ] L 2 : Z+A , » | ' , B 

V 

EXAMPLES : 

U+LM+ X 'SHAPE 'SIMPSON GERONIMO JONES LEGRAND' 
SIMPSON 
GERONIMO 
JONES 
LEGRAND 

AB+3 4 5 6 
U+NM+7H 5pl000 
589 931 847 527 92 
654 416 702 911 763 
263 48 737 329 633 
757 992 366 248 983 
LM BESIDE NM 
SIMPSON | 589 931 847 527 92 
GERONIMO | 654 416 702 911 763 
JONES 1263 48 737329633 

LEGRAND \ 757 992 366 248 983 
AB BESIDE NM 
3 | 589 931 847 527 92 
4| 654 416 702 911 763 
5| 263 48 737 329 633 
6| 757 992 366 248 983 
3 BESIDE NM 
589 931 847 527 92 
654 416 702 911 763 
263 48 737 329 633 
757 992 366 248 983 

ANALYSIS : 

A LINES 1 AND 2 PREPARE THE ARGUMENTS FOR SIDE BY SIDE PLACEMENT. 

A NUMERIC ARGUMENTS ARE FORMATTED WITH AUTOMATIC WIDTH AND 

A NO DECIMAL POSITIONS IF INTEGER, 2 DECIMAL POSITIONS OTHERWISE. 

A ANY FRAMING ALREADY PART OF A CHARACTER ARGUMENT IS REMOVED. 

A VECTOR OR SCALAR ARGUMENTS ARE CONVERTED INTO ONE-ROW MATRICES. 

A LINES 3,4,5 CHECK THE NUMBER OF ROWS IN BOTH ARGUMENTS AND ADD THE 

A APPROPRIATE BLANK ROWS TO PAD OUT THE SMALLER. 
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BLANK DELETE SPECIFIC STRING FROM STRUCTURE [ LXM ] 

SYNTAX: R+STR BLANK A 

o IF A REPORT, OR ANY STRUCTURE, CONTAINS UNWANTED ITEMS, 
NUMERIC OR CHARACTER STRINGS, THEN EVERY APPEARANCE OF THE 
SPECIFIED STRING WILL BE REPLACED BY BLANKS, OR BY ZERO, 
IF A IS A NUMERIC STRUCTURE. 

o USES VLOC VLIM VA 
FUNCTIONS : 

V R+-STR BLANK A 
[1] n IF SIR APPEARS IN A IT WILL BECOME BLANKiOR 0) 
[2] Rt(*/pA)LIM(STR LOC R)° . + \p,STR A DI0«-O>O\ ' » pA A R+,A 
[3] R+(pA)pR 
V 

V R+N LIM A 
[11 n RETURNS VALUES<N, ONLY 
EXAMPLES' [2] R+(N>R)/R+,A 

V 
£«-[>2¥ 2 | 16 
0.00 1.00 0.00 1.00 0.00 1.00 
' 0.00 'BLANK B 
1.00 1. 00 1 .00 
B-*-Q-*-3 4pi7 
12 3 
4 5 6 
12 3 4 

12 BLANK B 
3 
4 5 6 
3 4 

£NAIlI§.I£ : ' ^4 » BL4WZ ' 444SBB444 » 

[2] Rl(*/pA)LIM(STR LOC R>° - + *P >STR_LJ3IO+O']l*'0\' l pA A R+ ,A 

AAA 

[2] Rl(*/pA)LIM(STR LOC R ) ° . + i p ,527? A_QI0«-O ]«-0\ ' ' p4 A /?«-,4 

12 

[2] Rt(*/pA)LIM(STR LOC R ) o . + ip 9 STR A Dltf*0>0\ ' ' p4 A R+ ,A 

AAABBBAAA 

[2] Rl(*/pA)LIMiSTR LOC _R)° . + \p ,STR A QI0«-O>O\ ' * pA A R+ ,A 

6 7 8 

[2] i?C(x/p^)i;JAf^^^^^)o 1 +^p,^^A^DI^O]^0\ , 'pA L R+ 9 A 

12 (NOTICE WRAP-AROUND. . .9,10 Fi4LS# INDICES) 

6 7 8 

7 8 9 

8 9 10 

C2] Rt(x/_pA)LIM(STR LOC R)o.+\p,STR A QIO«-0>0\ » ' p4 A i?«-,,4 

9 

[23 Rt(x/pA)LIM(STR LOC R)^.+xp,STR A Qltf^-O >0\ ' f p4 A 2?«-,A 

012678788 (FALSE INDICES DELETED) 28 



CENTEEON 



CENTERS AND CATENATES TWO STRUCTURES [ CENTER ] 



SYNTAX: 



Z+-A CENTERON B 



TAKES TWO CHARACTER ARRAYS OF ANY SIZE, CENTERS THE 
ONE WITH FEWER COLUMNS, THEN CATENATES A ABOVE B. 
USES: 1IF V COMPARE 1 ADDCOLS V CENTER ION ^PREPARE 



FUNQT.IQNS : 

V Z+A CENTERON B\I 
[1] A+lA A B+VB 

[23 -KL1,L3,L2)IF COMPARE J>( ~l + pA)-"l+pB 
[3] Ll:+L3 A B+CENTER I ADDCOLS PREPARE B 
[4] L2:A+CENTER{ -J) ADDCOLS PREPARE A 
[5? L3-.Z+A ON B 



V Z+CENTER B\C 
[1] C+NUMBLANKCOLS Z*-B 
[2] Z-Kr0.5x-/C)4>Z 



E1AMLIES : 

LV+'TRIS IS A LITERAL VECTOR' 

LV 
THIS IS A LITERAL VECTOR 

LV CENTERON 'HELLO' 
THIS IS A LITERAL VECTOR 
HELLO 

'SALES' CENTERON 'REPORT FOR OCTOBER' 
SALES 
REPORT FOR OCTOBER 

&NALIS.IS : 

R LINE 1 FORCES CHARACTER REPRESENTATION. 

R LINE 2 CHECKS THE NUMBER OF COLUMNS IN THE ARGUMENTS. 

A IF EQUAL, LINE 5 USES VON TO CATENATE THEM. 

A IF UNEQUAL, THE SMALLER IS PADDED OUT ON THE LEFT TO THE WIDTH OF 

R THE LARGER WITH V ADDCOLS, THEN USES V CENTER TO SPLIT THE NUMBER 

fl OF BLANK COLUMNS, PUTTING HALF ON THE RIGHT, BEFORE CATENATING. 

A VPREPARE MAKES ONE-ROW MATRICES OF VECTOR AND SCALAR ARGUMENTS. 
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CITED EXTRACT CITED. STRINGS FROM CHARACTER ARRAYS 



SYNTAX: R+KV CITED A 



o STRINGS OF NON-BLANK INFORMATION, DEMARKED BY THE CHARACTERS 
PROFFERED AS KV , WILL BE EXTRACTED, SHAPED AS A MATRIX, 
AND SORTED. 

o USES: 1SHAPE VGRADEUP (AND GLOBAL VARIABLE " AV" ) 



FUNCTION 



V R+KV CITED A 
Cl] R+' » SHAPE(~ReKV) /R+(*\ReKV) /R+ ,A 
[2] R+RlAV GRADEUP R ; ] 

V 



EXAMPLES : 

1 11' CITED' TOM [DICKl HARRY' 
DICK 

' -*-*•' CITED ' TOM+HARRY DICK+JANE' 
DICK 
HARRY 

AMLYSIS : 

'[1' CITED' TOM I DICK JAN El HARRY' 

Cl] R+' ' SHAPE , (~ReKV)/R+(*\ReKV)/R+ 1 A 

TOM [.DICK JANE] HARRY 

Cl] R+' ' SHAPE(-ReKV) /R+(*\ReKV) /R+,A 

OR ANY CHARACTER NOT IN TEXT 
[3 
Cl] R+' 'SHAPE(~ReKV)/R*-(*\ReKV)/R+,A 

LOCATED 
000010000000001000000 
Cl] R+' 'SHAPE(~ReKV)/R+(*\ReKV)/R+ 1 A 

EXTRACTED 
[DICK JANE 
Cl] R+' 'SHAPE(~R€KV)/R<-(*\ReKV)/R+,A 

1000000000 

Cl] R+' ' SHAPE (~R<LKV) /R+(*\ReKV) /R+ ,A 

0111111111 

Cl] R+'_ '_SHAPE(~R€KVl/R+yL\ReKV)JR+ L A 

- CLEANED AND SHAPED, 

DICK READY FOR SORTING 

JANE 
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COLLECT 



COLLECT AND SUMMARIZE COEFFICIENTS OF COMMON CODES 



SYNTAX 



R+VV COLLECT CV 



o VV AND CV ARE A PAIR OF NUMERIC VECTORS TO WHICH WE HAD 
BEEN CATENATING PAIRS OF CORRESPONDING DATA . 

o WE DESIRE TO REDUCE THE DATA BY COLLECTING AND SUMMING 
THOSE TERMS IN VV THAT ARE IN THE SAME CATEGORY, 
AS REPRESENTED BY REPETITION IN CV , THE CODE VECTOR. 

o THE CODE VECTOR, ALTHOUGH NUMERIC, MAY REPRESENT 
ALPHABETIC CHARACTERS. SEE VLJNFORM IN KWIC INDEX. 

o USES 1DREP. 



FUNCTION 



V R+VV COLLECT CV;T 
[1] R*-T,tniO+0.5]((T+DREP CV) ° . =CV)+ . x VVV 

FXAMPLE ' 

D«-J> ? 1 1 p 6 
31452314523 (A RANDOM PATTERN OF OCCURRENCE) 

□«W-«-ll?99 
98 99 23 27 68 58 32 93 79 17 29 (TALLIES, CORRESPONDING TO CAR-CODES) 

(AV KFORM, 1+R),V0 1+R+VV COLLECT AV LJNFORM CARSLI',1 
PONT I AC 185 

BUICK 131 

CHEVROLET 116 (RE-TRANSLATED, FOR REPORTING PURPOSE) 

CADILLAC 106 

OLDSMOBILE 8 5 

ANALYSIS: VV COLLECT CV+?llplO 

[1] R<rT,iniO+0.5l( (T+DREP CV) ° . =CV )+ . xVV 

7 16 47 90 89 58 30 9 24 74 35 VALUES 

[1] R*-T,IUIO+0.5']((T+DREP CV) ° . = CV) + . *VV 

10 1168151587 CODES 

[1] R+T,tniO+0.5l((T<rDREP CV) ° . = CV) + . xVV 



10 1 6 



5 7 



REPLICATES DELETED 



Cl] R+T,iniO+0.5l((T+DREP CV) o . = CV) + . xVV 



10000000000 
01100101000 
00010000000 
0001000010 
0000010100 
00000000001 
Cl] R+T,iUlO+0.5l((T+DREP CV) ° . =CV)+ . xVV 



HITS LOCATED 



10 7 

1 130 

6 90 
8 163 
5 54 

7 35 
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REDUCED AND LAMINATED 



DREP 



SELECT UNIQUE ELEMENTS FROM ANY STRUCTURE 



SYNTAX 



R+DREP V 



USEFUL IN PREPARING SPECIAL COLLATING SEQUENCES. 
RESULT CONTAINS SINGLE APPEARANCE OF EACH ELEMENT, 
NOT REARRANGED. 



FUNCTION : 

V R+DREP V 
[1] R+((V\V)=\pV)/V+ 9 V 
V 



KIAMPLE : 

DREP 123454321 
12 3 4 5 

AMLYSIS : 

DREP ' MISSISSIPPI f 

Cl] R+MV\V) = \pV)/V 

MISSISSIPPI 

[13 R+((V\V)=ipV)/V 

MISSISSIPPI 

Cl] R+(AV\V) = ipV)/V 

11 

Cl] R+((V\V')=\pV)/V 

123456789 10 11 

Cl] R«r((ViV') = \pV)/V 

MISSISSIPPI 

Cl] R+((ViV)=\pV)/V 

12332332992 

ci] R *-(LZ±Zlzi2.Z )/v 

11100000100 

Cl] ?lLLZ±Zlz±B.Zlt.Z 

MISP 
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HEADEEON 



PUTS A HEADING ON A REPORT C COMPARE ] 



SYNTAX: 



Z+A HEADER ON B 



FUNCTIONS'. 



CENTERS A CHARACTER HEADING {LEFT ARG.) ON A REPORT 
(RIGHT ARG.), WITH AN EXTRA ROW OF BLANKS AND A 
SEPARATOR. HEADING MAY BE SCALAR, VECTOR OR MATRIX. 
USES: 1PREPARE VIF V CENTER 1ADDC0LS 1ADDR0WS 1ADJUSTUP 
1ADJUSTD0WN V COMPARE VA 



V Z+A HEADERON BiI;J',UIO 
[1] I+_l+pA+PREPARE A A UI0+1 
[2] J"*- 1 + p B+PREPARE B 
[3] +(L1 9 L2 9 L0)IF I COMPARE J 
[4] L0:+L2 9 pB<-CENTER(J-I)ADDCOLS B 
[5] LI :A+CENTER(I-J)ADDCOLS A 
[6] L2:Z^y4,[l] T _' ,[1]1 ADDROWS B 
[7] Z+(2+l+pA)ADJUSTUP(l+lipA)ADJUSTD0WN Z 

V 



V Z-rA COMPARE B 
[1] Z«-(xB-i4)4>0 1 



EXAMPLE 



'SALES' 
SALES 



HEADERON ?4 5pl00 



52 

10 

28 

6 



32 
95 
92 
77 



99 

8 

53 

78 



50 
51 
47 
83 



27 
39 
95 
13 



(2 8p f DECEMBER 
DECEMBER 
REPORT 



REPORT f ) HEADERON ?H 5pl000 



16 689 
726 1000 



514 

270 

LINES 



869 
889 
592 
416 



630 
234 
846 
538 



737 
307 
413 
468 



1 AND 2 PREPARE THE HEADING BY CONVERTING SCALARS AND VECTORS 



352 
842 

fi 

A TO ONE-ROW MATRICES AND REMOVING ANY PREEXISTING FRAMING ELEMENTS. 

A THEY ALSO FORMAT THE RIGHT ARGUMENT. 

A LINES 3,4,5 CHECK THE WIDTHS OF THE ARGUMENTS AND CENTER THE HEADING 

A LINE 6 ADDS THE SEPARATOR ' _» AND AN EXTRA BLANK ROW. 

A LINE 7 ADDS THE FRAMING ELEMENT ' | ' WHERE NEEDED IN THE EXTRA BLANK 

A ROW TO PRETTY UP THE REPORT. MOST OF THE TIME IT WON'T BE NEEDED. 
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LJUST 
SIRTAX : 



LEFT JUSTIFY ANY ARRAY 
R+V LJUST A 



C VLB RJUST DL ] 



o TO SHIFT SIGNIFICANT CHARACTERS OR NUMERIC VALUES TO 

LEFTMOST POSITIONS. 
o INSIGNIFICANT VALUES OR CHARACTERS ARE DEFINED IN V. 

THEY CAN BE TRUNCATED BY DT . (SEE VLB , BELOW) 
° RIGHT JUSTIFICATION IS THE REVERSAL OF LEFT JUSTIFICATION. 



IUEQT.IQNS : 



V R+V LJUST A 
[1] /?-*•( +/A\i4 € 7 )<J>4 
V 

KKAUELK : 



V R+V RJUST A 
[1] R+QV LJUSTtyA 
V 



1 'LJUST D«-3 5p' TOM DICKHARRY 



TOM 

DICK 

HARRY 

TOM 

DICK 

HARRY 

ANALYSIS' f *?' LJUST A 

Cl] R+(+/*\AeV)<$>A 



* * * TOM 
**DICK 
* HARRY 










7BETTY 
? 7 MARY 
JANE 
[1] /?■«*(• 


*-//> 


Ai4e 


:7)<M 


7* 

Ci] /?«-(- 


i-/' 


A4e 


:7)<J>i4 


1110 
110 
1 0- 

















10 

110 

110 

[13 R+(+l*\AeV)$A 

3 2 1 
12 2 

[1] ?.tLtLH\^iZlti 

TOM*** 
DICK** 
HARRY* 

BETTY? 
MARY?? 
JANE 



V R+QV DL V 
Cl] R+(~A\VeQV)/V 
A J/IL£ DELETE LEADING ELEMENTS 
A Fi?<9M 4 VECTOR. QV IS A QUOTED 
A CHARACTER STRING OR A NUMERIC 
A VECTOR THAT CONTAINS EXAMPLES 
A TO BE DELETED. 

V 



V R+DLB K 
Cl] /?«-(-(~l + p£),r/,+/v\» **K)+K 

V 
A i4 SPECIAL CASE TO DELETE LEADING BLANKS 
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ON 



CONFORM AND CATENATE ANY STRUCTURES 



SYNTAX 



Z+A ON B 



NAMES OR NUMBERS MAY BE ADDED TO LISTS OF ANY SHAPE 

OR CHARACTER, AT EITHER END. THE OUTPUT IS A MATRIX 

NUMERIC MATRICES WILL BE PADDED WITH ZEROS IF THEY 

REMAIN NUMERIC. 

CHARACTER MATRICES WILL BE PADDED WITH BLANKS. 

ANY OPERAND MAY HAVE ANY STRUCTURE. 

USE VCENTERON IF LEFT- JUSTIFICATION IS NOT DESIRED. 

USES: 1CF0RMAT VMATRIX 



FUNCTION : 



Cl] 
[2 ] 
[3] 
[4] 
[5] 



fi 



Z+A ON BiUlO 
C FORMAT 

Z<-( lipA+MATRIX A)[ lipB+MATRIX 
Z-«-(((l + pi4),Z)fil),CDlO-«-0]((ltpB) ! 
Z«-± f AABZ T [ (2x0*p ,B) + 0*p ,A1 
IN CASE OPERAND WAS EMPTY 



B 
Z)\B 



KMMPLES : 

' i4'tftf 1 4 
i4 
12 3 4 

FRAME ' HEADING 'CENTERON 3 4pil2 




1 HEADING 1 ON 3 3pi9 
HEADING 
12 
3 4 5 
6 7 8 

(BLANKS COUNT AS CHARACTERS) 
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OUTPUT 



CENTER HEADINGS OVER FORMATTED COLUMNS [ CNTR DMZ NEXTA ] 



SYNTAX 



MAT+HEADINGS OUTPUT MATRIX 



HEADINGS, A CHARACTER VECTOR WITH BLANK DELIMITERS, WILL BE 

CENTERED OVER THE APPROPRIATE COLUMNS, AND UNDERSCORED TO 

THE FULL WIDTH OF THOSE COLUMNS IN THE PREFORMATTED MATRIX. 

ANY HEADING TOO WIDE FOR ITS COLUMNS WILL BE NOTED. 

AN INSUFFICIENT NUMBER OF HEADINGS WILL CAUSE LENGTH ERROR. 

ONLY THE LEFTMOST HEADINGS WILL BE USED. 

USES: 1DMZ 1NEXTA 1CNTR 1WIDTH 1DLB 

GENERATES A GLOBAL VARIABLE, B, WHICH CAN BE USED TO REDUCE 

(THEN EXPAND) THE RESULT BY ELIMINATING BLANK COLUMNS. 



FUNCTIONS 



V MAT+HEADINGS OUTPUT MATRIX ;S ; I ;A ;A;V ;W;H ;UI0 
[1] MAT+(l+pMATRIX)p' ' ,S+-(I+~UlO+l)pA<-HEADINGS 
[2] W+'B 1 WIDTH MATRIX 

[3] BACK:+( (I=pW)vo = pH+NEXTA) /FINAL 
[4] -*(0*pA A S+S,A+Wll+I+11CNTR H) I BACK 
[5] ->0,pD^' COLUMN WIDTH ( T ,(v&0, ! ) TOO NARROW FOR 

[6] FINAL :MATlB/\pBl<-S_ 
[7] MAT+(MAT,t0.l r ]B\' ' ) ,il~]MATRIX 



>R 



[1] 



Cl] 



[1] 
[2] 



V R+W CNTR V 
H+(W>pV)/(-[0.5xW-p,V)<bW+V 

V 

V R+DMZ N 

R+±\ ( Zvl<\>Z+N*0 ) / N+ , ,N 



WORD+NEXTA;L 

WORD<-(L^h\'< **A)/A+DLB A 

A+(~L)/A 



EXAMPLES : 

fi (SEE THE EXAMPLE FOR V AMORTIZE) 

'TOM DICK HARRY ° ° » OUTPUT 9 2lMM 
TOM DICK HARRY 



1, 


. 00 


1000. 


, 00 


87. 


.92 


79, 


.58 


8 , 


.33 


2, 


.00 


920. 


.42 


87. 


.92 


80, 


.25 


7 , 


.67 


3 , 


.00 


840. 


.17 


87. 


.92 


80, 


.91 


7 , 


.00 



'ABERCROMBIE DICK HARRY ° °' OUTPUT 9 2vMM 
COLUMN WIDTH (47554) TOO NARROW FOR ABERCROMBIE 
fl + OFFENDER 
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PAD 



PADS ARRAYS WITH BLANKS OR ZEROS 



SYNTAX: 



Z+P PAD X 



FUNCTION: 



PADS ARRAY X WITH BLANKS (IF LITERAL) OR ZEROS (IF NUMERIC). 
X CAN BE AN ARRAY OF ANY SHAPE AND TYPE. 

P IS A NUMERIC VECTOR SPECIFYING THE AMOUNT OF PADDING IN 
EACH 'DIMENSION OF X ( OR THE LAST pP). 

THE SENSE OF PADDING (RIGHT OR LEFT), (BOTTOM OR TOP), ETC., 
IS DETERMINED BY THE SIGNS OF THE ELEMENTS OF P JUST AS WITH 
THE TAKE FUNCTION (t). IF P IS NOT LONG ENOUGH TO MATCH THE 
RANK OF X, PADDING IS DONE ONLY FOR THE LAST pP DIMENSIONS. 
THIS FUNCTION IS UNLIKE THE TAKE FUNCTION IN THAT THE 
CHANGE IN SIZE IS SPECIFIED AND IT DOES NOT REQUIRE DETAILED 
KNOWLEDGE OF THE DIMENSIONS OF X. 



V Z+P PAD X 
[1] Z«-(((Z = 0)+*Z+Z+P)x(Z + l,pX)+| (Z«--irppX)tPHX 
V 

EXAMPLES : 



3 PAD 4- 
4 



"8 PAD 'ABCD 1 
ABCD 



1 20 PAD 3 3pMBC" 

ABC 
ABC 
ABC 



'3 PAD 2 4pi 












1 2 


3 M- 











5 6 


7 8 






1 


"3 PAD 


2 4pi8 











1 2 


3 H 











5 6 


7 8 


















1 2 PAD 2 2 Hpil6 



1 


2 


3 


4 








5 


6 


7 


8 


























9 


10 


11 


12 








13 


14 


15 


16 



























ANALYSIS : 

Z«-(((Z = 0)+xZ«-Z + P)x(Z + l,pX) + | (Z^-irppZHPHX 



| ABSOLUTE VALUE OF PADDING 
DIMENSION VECTOR OF X 



SIGN OF PADDING 
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PREPARE STANDARDIZE STRUCTURE FOR REPORT FORMATTING C IF ] 

SYNTAX: Z+PREPARE A 



A SUBROUTINE THAT NORMALIZES DATA FOR THE FORMATTING 

FUNCTIONS: 1BESIDE VCENTERON 1HEADER0N 

USES: ^CHARACTER 1FRAMETEST VMATRIX ^TABULATE 1IF 



FUNCTIONS : 

V Z+PREPARE A V R+ A IF B 

[1] -*L1 IF "CHARACTER A [1] R+BJA 

[2] ->0 IF 0=FRAMETEST Z+MATRIX A V 

[3] -K),pZ«-l 14- l"l + Z 
[4] L1:Z+TABULATE A 

V 



EXA.M.ZLES ' 

X 
ABCD 
ABCD 
ABCD 



PREPARE X 



ABCD 
ABCD 
ABCD 



3 4 



p PREPARE X 

Y 

I 'I 

\ SALES \ 

I I 

PREPARE Y 
SALES 

Z 
12 3 4 
5 6 7 8 
9 10 11 12 

PREPARE Z 
12 3 4 
5 6 7 8 
9 10 11 12 

^PREPARE Z 
3 12 

ANA.LYS.IS : 

A LINE 1 BRANCHES TO LINE 4* IF THE ARGUMENT IS NUMERIC. 'TABULATE' 
A THEN FORMATS IT. 

A LINES 2 AND 3 TAKE THE ARGUMENT, WHICH IS MADE INTO A MATRIX, AND 
A EXAMINE IT FOR FRAMING ELEMENTS ON THE PERIPHERY OF THE ARRAY. 
A THESE ARE REMOVED IF PRESENT. 
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TABULATE 



NUMERIC STRUCTURES IN CONTROLLED FORMAT C HANG ] 



SYNTAX : 



Z+T ABU LATE A 



A MUST BE A NUMERIC STRUCTURE. TABULATE WILL DIAGNOSE 

TEE DOMAIN ERROR IF IT IS NOT. TEE STATE INDICATOR 

WILL BE PRESERVED FOR ANALYSIS. TEIS IS BETTER TEAN TO 

ESCAPE FROM TEE CALLING FUNCTION WITE NO TRACE. 

SEE V ESC 'APE. 

RETURNS FORMATTED NUMERIC MATRICES. 

ANY FRACTIONS PRESENT WILL FORCE TWO DECIMAL PLACES. 

VECTORS WILL BECOME ONE-COLUMN MATRICES. 

USES: V INTEGER 1MATRIX VCEARACTER VEANG 



FUNCTIONS : 



[1] 
C2] 



Z+T ABU LATE A 

M IS NOT NUMERIC RANG CEARACTER 

Z+(2*~INTEGER A)T§MATRIX§A 



EXAMPLES : 



TABULATE 2 3pi6 



1 : 

3 
12' 

1 
2 
3 



TABULATE 2 3pOi6 
14 6.28 9.42 
57 15.71 18.85 

TABULATE i3 



V MSG RANG CONDITION 

[1] S&EANG+-0 

[ 2 ] +0 IF-CONDITION 

[ 3 ] MSG 

[4] S&HANG+ULC+1 

[5] fl INSPECT STATE INDICATOR 

[6] A CEECK DOMAIN OF VALUES 



TABULATE 'ABC 1 
A IS NOT NUMERIC 
EANGl 5] 



TEE PROGRAM EAS STOPPED FOR INSPECTION 
OF TEE INPUT DATA AND ITS POSSIBLE SOURCE 
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Section III 



Workspace Management Functions 



LISTFN 



LISTS A FUNCTION IN STANDARD FORM 



SYNTAX 



R+LISTFN FN 



o RETURNS A CHARACTER MATRIX WHICH APPEARS TO BE A LISTING 

OF THE FUNCTION WHOSE NAME, IN QUOTES, IS THE ARGUMENT. 

IT CONTAINS V'S, STATEMENT NUMBERS, AND EXDENTED LABELS 

AND COMMENTS. 
o AN EMPTY MATRIX IS RETURNED FOR NON-EXISTENT AND LOCKED 

FUNCTIONS. 



FUNCTION : 



V ZQQ+LISTFN XQQiFQQiUlO 

[i] mo+i 

[2] -K0 = l + pZ££«-DCi? XQQ)iO 

[3] ZQQ+±(UFX 5 0+UCR 1 LISTFN* ) , ! Z££* 

O] + 

C5] Z+FQQ A;B;N 

[6] N+~l + pB+Ul ;l] = , fl t ) v£\ ( +/v\B/Z )>+/ v\ l l » ' =(£«-v/Z«-4= ! : * )/4 

[7] Z«-fft((iU9)p2),(or90U-9)pl 

[8] Z«-((» f ,Cl]»[ » ,Z<|>(3 Ow(N,l)piN), « ]'),B<J>' ',i4),[l]' « 

[9] Z[l,tf+2;5>'V f 



EXAMPLE 



[1] 
[2] 
C3] 



VESTED ]V 
V TEST 
A+\3 
^COMMENT 
LI: 'END 1 
V 



[1] 
[2] 
[31 



U+Q+LISTFN 
V TEST 
A<-\3 
Pi COMMENT 
LI : 'END 1 
V 



TEST 



pQ 



5 14 



N.OTES: THE TECHNIQUE USED HERE ILLUSTRATES A METHOD OF DEALING WITH THE 
PROBLEM OF NAME-SHADOWING IN APL : ACCESS TO GLOBAL OR SEMI-GLOBAL 
OBJECTS IS INHIBITED IF IDENTICAL LOCAL NAMES OCCUR IN AN ACTIVE 
FUNCTION. TO AVOID THIS IN SITUATIONS WHERE ACCESS TO GLOBAL OBJECTS IS 
NECESSARY, SOME PROGRAMMERS USE HIGHLY IMPROBABLE NAMES SUCH AS THE ZQQ, 
XQQ AND FQQ USED HERE. THIS IN TURN MAKES THE CODE HARDER TO UNDER- 
STAND AND MAINTAIN. THE METHOD USED HERE IS A COMPROMISE. IMPROBABLE 
NAMES ARE USED TO OBTAIN DATA TO PASS TO A LOCAL FUNCTION WITH "GOOD" 
NAMES. LINE 3 CREATES AND EXECUTES THIS LOCAL FUNCTION, WHICH IS 
"DEFINED" IN LINES 5 THROUGH 9 OF LISTFN. 
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PROMPT 



PROMPT AND CHECK TERMINAL ENTRY OR ELSE DEFAULT 



SYNTAX 



R+DEF PROMPT MSG 



FUNCTION: 



PROMPT CAN EXAMINE KEYBOARD ENTRY, AND EITHER ACCEPT IT 
UNCRITICALLY, RETURN A SPECIFIED DEFAULT CHARACTER VECTOR, 
OR, IF NUMERIC VALUES ARE REQUESTED, WILL CHECK THE 
CHARACTER SET USED, AND CAN CHECK FOR THE SPECIFIED LENGTH 
MSG IS A CHARACTER STRING, I.E., THE PROMPTING MESSAGE 
DEF, IF CHARACTER, IS THE DEFAULT CHARACTER STRING, OR '' 
IF A SCALAR NUMERIC VALUE, N: 

WILL ACCEPT ANY NUMERIC VECTOR IF N=0 
WILL REJECT VECTOR UNLESS N^p VECTOR 
IF AN INTEGER VECTOR, V, WILL ACCEPT A NUMERIC 
VECTOR IF ITS LENGTH IS ONE MEMBER OF V . 
USES: V CHARACTER 1EMPTY VJF VA 



V R+DEF PROMPT MSG;J;K 
[1] +0 IF = p,DEF A J+-R+R + NL R+-p ,V\+MSG 
[2] ->0 IF CHARACTER DEF A R+R , ( = p ,R ) / wDEF 

[31 NSCREEN:+ERR IF~(~EMPTY K)**/K+Je' . 012345678 9E" 
f4l +0 IFv /DEF=(DEF>0)xp ,R*-i.J 

[5] ERR-.+l A D+'NOT EXACTLY ' , ((v /DEF>0) /iDEF\ ' NUMBER' , ' v /DEF>1) /' S' 

[6] a CHARACTERS MAY BE ADDED OR DELETED FROM NSCREEN 



EXAMPLES : 



OPROMPT'THE AGES OF THE MEMBERS OF YOUR FAMILY, IN DESCENDING ORDER..' 
THE AGES OF THE MEMBERS OF YOUR FAMILY, IN DESCENDING ORDER.. 54 43 22 16 
54 43 22 16 

3PROMPT'THE MONTH DAY YEAR OF YOUR BIRTH, AS NUMBERS..' 
THE MONTH DAY YEAR OF YOUR BIRTH, AS NUMBERS.. 3 13 
NOT EXACTLY 3 NUMBERS 

THE MONTH DAY YEAR OF YOUR BIRTH, AS NUMBERS.. 3 13 1954 
3 13 1954 

2PROMPT' GIVE ME TWO NUMBERS.. 1 
GIVE ME TWO NUMBERS. ."14 1.2 3 4F5 6 
14 1. 234256 

lPROMPT'AN EXAMPLE OF A SCALAR NUMERIC VALUE: ' 
AN EXAMPLE OF A SCALAR NUMERIC VALUE: ASDF 
NOT EXACTLY 1 NUMBER 

AN EXAMPLE OF A SCALAR NUMERIC VALUE: 1 
1 

1PROMPT' ANOTHER. . . ! 
ANOTHER ... 


'NO RESPONSE' PROMPT 'WHAT IS YOUR NAME? ' 
WHAT IS YOUR NAME? 
NO RESPONSE 

2 3 PROMPT' GIVE ME TWO OR THREE NUMBERS ... ' 
GIVE ME TWO OR THREE NUMBERS .. .77 
NOT EXACTLY 2 3 NUMBERS 
GIVE ME TWO OR THREE NUMBERS. . .77 6 
77 6 
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STATUS CURRENT SESSION AND WORKSPACE STATUS I NOW 1 

SYNTAX : ST A TUS 

o DISPLAYS DATE, TIME, CPUTIME, AVAILABLE SPACE, SUSPENSIONS 

FUNCTIONS : 

V STATUS 
[1] NOW 

[2] 'CPUTIME THIS SESSION: ' , ( TO . 001xlti+CU J) , ' SECONDS 1 
[3] 'SPACE LEFT: ',(*UWA),' BYTES 1 
[4] 'FUNCTIONS SUSPENDED: ' t J~l+pQLC 
V 

V R+NOW 
[1] R+{ ' /'FILLSvlOO | lQZiUTS ), ! f , ' : 'FILLS 1+3+UTS 
V 

EXAMPLES : 

7/7/77 17:20:20 

CPUTIME THIS SESSION: 8.117 SECONDS 
SPACE LEFT: 4 04 7 08 BYTES 
FUNCTIONS SUSPENDED: 
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TABS COMPARE REQUIRED TAB SETTINGS TO EXISTING ONES [ COLNO 1 

SYNTAX: TABS 

o AN UPCOMING REPORT MAY REQUIRE SPECIAL TAB SETTINGS. 

o THE TERMINAL USER CAN BE PROMPTED TO VERIFY THE CORRECTNESS 

OF THE EXISTING TABS BEFORE CONTINUING WITH THE REPORT. 
o SEE 1TCC, PAGE 44 

FUNCTIONS: 

V TABS;X;Y 
[1] ft VISUAL CHECK OF REQUIRED AND ACTUAL TABS 
[2] 'NONE REQUIRED.' ESCAPE EMPTY UHT 9 \UIO+0 

[3] 'IMPOSSIBLE. CORRECT UHT OR UPW ESCAPE-*/ (UPWzUHT) ,UHTe i 1 29 
[4] 'TABS REQUIRED: (LEFT MARGIN AT ZERO) 1 
[5] ' . + ' [J-K \Y+l+[ /UHT)eUHTl 
[6] COLNO Y 
[7] (1+X)\'i' 
[8] SpIDLC 

[9] 'EXISTING TABS, INDICATED BY +. CLEAR AND SET AS REQUIRED.' 
V 

V R+FROM COLNO T0\UI0 
[1] M f 10 10 TFROM+\(129\.TO)-FROM-~UIO+0 
V 

EXAMPLES : 

UHT+ ' ' 

TABS 
NONE REQUIRED. 

UHT+11 3 3 5 5 

TABS 
TABS REQUIRED: (LEFT MARGIN AT ZERO) 

,...4r.. ........ ......4r...... + 

0000000000111111111122222222223 33 333333344444444445 55 5 55 
0123456789012345678901234567890123 4 5 67 890123456789012345 
+ ■ + +• 

EXISTING TABS, INDICATED BY t. CLEAR AND SET AS REQUIRED. 
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TCC 



SYSTEM INDEPENDENT TERMINAL CONTROL CHARACTERS 



SYNTAX: 



Z+BKSP 



Z+-CRTN 



Z+IDLC 



Z+LNFD 



Z+TABC 



o Z IN EACH CASE IS ONE BACKSPACE, CARRIAGE RETURN, IDLE, 
LINE FEED, OR TAB CHARACTER, IF THAT CHARACTER EXISTS 
IN THE ATOMIC VECTOR (UAV) IN THE APL SYSTEM YOU ARE 
USING. THE CHARACTERS ARE STORED AS THE GLOBAL VARI- 
ABLES BK> Q.S. » ZU> LR> AND TB FOR RAPID ACCESS. THESE 
FUNCTIONS DEPEND ON THE SPECIFIC CONFIGURATION OF UAV 
IN THE VARIOUS APL SYSTEMS TO DATE. EACH FUNCTION 
ASSUMES THAT AT LEAST ONE ELEMENT OF UAV IS UNIQUE TO 
EACH SYSTEM. 

° KNOWN EXCEPTIONS: THE TAB AND IDLE CHARACTERS DO NOT 
EXIST IN VS APL UAV. IDLC WILL DELIVER THE ° CHAR- 
ACTER; TABC THE -*. 



IILRQ.1I0NS : 

V Z+BKSP 
[1] ■+(0*nNC'BK' )/Al 

C2] BK+nAViniO+15 8 200 41[ ' el ' xUAVLniO+73 ] ] ] 
C 3 ] Al: Z+BK 

V 



M&MPLES : 

1 U f , BKSP , ' * ' 
1 



VZ+CRTN 
[1] ■+(Q*UNC'CR 1 )/A1 

[2] QR+UAVIUIO+15 6 202 73[ ' el ! iDi4VTDJ0t73 ] ] ] 
[3] Al-.Z+QR 

V 



M» ,CRTN, f £' 



V Z+IDLC 
[1] -K0*DtfC"I2' )/Al 

[2] ID+-UAVIUIO+163 191 64[ ' eJ ' iD47[DX£+73 ] ] ] 
[ 3 ] 41: Z+ ID 

V 



4B 



M 1 ,IDLC, '5' 



V Z+LNFD 

[1] ^(O^D^C'M* )M1 

C2] M^n^^CD^ + 159 201 169['ej» iOi47[DI0+7 3 ] ] ] 
[3] 41:Z«-Ltf 
V 



B 



M f ,LNFD, 'S' 



V Z+TABC 
Cl] +(0*DtfC ? TB' )M1 

C2] ■£2M1A7[:DJ0 + 16 2 185 1 92[ ' el ' iQAF[QT0+73 ] ] ] 
[ 3 ] i4 1 : Z-t^g 

V 



M» ,TABC, »5 f 
5 
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TIME 



FUNNING TIME AND NEW SPACE FOR AN APL STATEMENT [ ALT ] 



SYNTAX : 



TIME STMT 



o EXECUTES THE APL STATEMENT IN THE QUOTED CHARACTER 

STRING, STMT. DISPLAYS ITS RUNNING TIME AND NEW SPACE. 
o DIFFERENT WAYS OF PERFORMING THE SAME FUNCTION OR 

EQUIVALENT OPERATION CAN BE COMPARED, 
o LANGUAGE ELEGANCE, CLARITY, AND MAINTAINABILITY SHOULD 

BE WEIGHED IN JUDGMENT AGAINST TIME AND SPACE USAGE. 
o ZERO SPACE MAY BE REPORTED IF THE VARIABLES HAD BEEN 

NAMED EARLIER IN THIS WORKSPACE AND WERE SUFFICIENTLY 

LARGE AT THAT TIME. 
o TRAFFIC ON THE HOST MACHINE MAY CAUSE TIMING TO VARY 

SLIGHTLY. TIME YOUR STATEMENTS MORE THAN ONCE, THEN 

AVERAGE THE RESULTS. 
o TEMPORARY STORAGE IS NOT MEASURED, ALTHOUGH IT MAY BE 

SIGNIFICANTLY LARGE, E.G. OUTER PRODUCTS. 



FUNCTIONS 



Cl] 
[2] 
[3] 
[4] 
[5] 
[6] 



V TIME STMT;F;Z 
PiHOW MUCH TIME/SPACE DOES AN APL STATEMENT USE? 

'F'ALT STMT 

Z+il+l+UAI) ,UWA 

F 

(v~7 + (ltl + Di4I)-l + Z) > ' MSEC ',(▼■( HZ)-^8+UWA) , ' BYTES 1 
A + CHANGE TO 6, FOR EXAMPLE, IF ADJUSTMENT NEEDED. 



V 



V NAME ALT EXP; J 
[1] J+UFX NAME ON EXP 
[2] ^INTRANSITIVE SYNONYM 

V 



EXAMPLES 



TIME ' Z<- x 1 ' 
1 MSEC 2 4 BYTES 

TIME 'Z+Z-7' 
MSEC BYTES 

A NOTICE THAT SOME APL SYSTEMS KEEP AN ARITHMETIC PROGRESSION VECTOR 
A STORED IN COMPACT FORM AS LONG AS POSSIBLE. WHEN WE SQUARE IT: 
TIME M«-Z*2' 
8 MSEC 3 92 BYTES 

A ...WE SUDDENLY SEE STORAGE BEING ALLOCATED 
A FOR IT SINCE IT CAN NO LONGER BE STORED MERELY AS 
A STARTING POINT, STEP, AND LENGTH. FOR TIMING, COMPARE: 
TIME 'B+ZxZ 1 
10 MSEC 3 92 BYTES 

A SURPRISINGLY, Z*Z SEEMS TO TAKE LONGER THAN Z*2 . 
A TIMING AND STORAGE COMPARISONS MAY WELL BE DIFFERENT 
A ON DIFFERENT APL SYSTEMS. THE 5110 DOES NOT SUPPORT UAI . 
TIME ' ' 
MSEC BYTES 

A IF THE RESULTS OF TESTING THE PREVIOUS NULL STATEMENT WERE 
A NOT 0, ADJUST THE CONSTANTS IN LINE 5 OF THE APL FUNCTION. 
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VARS DISPLAY CHARACTERISTICS OR CONTENTS OF VARS SELECTIVELY 

SYNTAX: R+B VARS K 

o IN THE AUTOMATIC PRODUCTION OF APPLICATION DOCUMENTATION, IT 
IS OFTEN DESIRED TO DISPLAY ALL VARIABLES, OR ONLY THOSE OF 
PARTICULAR INITIAL CHARACTERS. 
o WHEN THESE STRUCTURES ARE TOO LARGE TO BE DISPLAYED, 
THEIR CHARACTERISTICS ONLY, MAY BE REQUESTED. 
1 VARS 11 WILL DISPLAY EVERYTHING 

1 VARS 1 » ' Z» » ! WILL DISPLAY ALL VARIABLES WITH INITIAL Z 
VARS 11 WILL DISPLAY CHARACTERISTICS ONLY OF ALL VARS 

VARS ' ' » XYZ » ' ! FOR CHARACTERISTICS OF VARS INITIALLY e'XYZ 1 

o USES: 1DLTMB 1IF 1L0GICAL 1INTEGER ^FLOATING ^CHARACTER 1EMPTY 
1GRADEUP IIS ALF 
FUNCTION : 

V R+-B VARS K;I',J-,niO 

[I] A LOCAL OR GLOBAL VARIABLES AND THEIR CHARACTERISTICS 
[2] + (0 = l + pR+Rl&. 1 ALF GRADEUP R+- 1 ,Z, 'Dil/L 2 f ; ] )/~Dl0«-l 

[3] JC+ 8 10+UCR 1 VARS 1 

[4] BACK :I+(\^)IF( LOGICAL J) , (INTEGER J) , (FLOATING J) .CHARACTER J+i.Rtl',1 

[5] » » 

[6] +EMP IF EMPTY J 

[7] £[1;],' IS « ,DLTMB(,KlI;l),(,KLUIO+k+ppJ;l) ,(0*ppJ)/'OF SHAPE '.TpJ 

[8] ifi/fiCl;] 

[9] FWD:-*(0*lipR+-l 0\R)$0 ,BACK 

[10] EMP:+FWD,pn+Rll;l, » 15 EMPTY 1 

[II] n Ttftf FOLLOWING IS NEVER EXECUTED. 
[12] LOGICAL 

[13] INTEGER 

[14] FLOATING 

[15] CHARACTER 

[16] SC4L4i? 

[17] VECTOR 

[18] MATRIX 

[19] 4i?i?4Y 



EXAMPLE : 

Fii?5» ' »i?ST' ' ! 
2? 15 CHARACTER MATRIX OF SHAPE 47 7 6 
T 15 CHARACTER VECTOR OF SHAPE 12 
T2 7 J5 EMPTY 
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Section IV 



Multiprecision Arithmetic Functions 



ADD 



MULTIPRECISION INTEGER ADDITION 



SYNTAX: 



C+A ADD B 



o ADD A TO B, GIVING C, USING MULTIPBECISION INTEGER 

ARITHMETIC (I.E. TRUNCATING ALL RESULTS TO MP INTEGERS) 

o A AND B ARE NUMERIC VALUES. 

THEY MAY BE: INTEGER OR FLOATING POINT, OF EITHER 
ORDINARY OR EXTENDED PRECISION. 

o C WILL BE A MULTIPRECISION INTEGER (ZERO EXPONENT) 

o AN EXTENDED PRECISION NUMBER, INTEGER OR FLOATING POINT, 
IS REPRESENTED BY AN INTEGER VECTOR OF CONSECUTIVE 1-7 
DECIMAL DIGIT SEGMENTS, THE FIRST OF WHICH IS THE EXPONENT, 
ZERO FOR INTEGERS. ALL- SEGMENTS HAVE THE SAME SIGN, WITH 
THE EXCEPTION OF THE EXPONENT . (SEE IF ADD) . LEADING ZEROS 
ARE ELIMINATED . 

° USE 1FIX TO CONVERT A NUMERIC VARIABLE TO MP INTEGER FORM. 

° THE MULTIPRECISION INTEGER ARITHMETIC PACKAGE COMPRISES: 
VADD VSUB VMUL VDIV VSQRT VFJJ VCAN GROUNDS 

o FUNCTIONS OF THE MULTIPRECISION INTEGER 
ARITHMETIC PACKAGE ARE USED BY THE MULTI- 
PRECISION FLOATING POINT ARITHMETIC PACKAGE 

o USES: IF IX VCAN 



IHIQ.TION : 

V C+A ADD B 
[1] ^MULTIPRECISION INTEGER ADD 
[2] C+CAN<b(C + <$>A) + (C+(pA+FIX A)\ pB)i$B+FIX B 

V 



EXAMPLES : 

A 
1 2345678 9012345 6789012 

B 
222 3333333 4444444 

A ADD B 
1 2345901 2345679 1233456 

A ADD 3 
1 2345678 9012345, 67890.09 

10 ADD 1 
9999999 9999999 9999999 
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ALP EEC 



ALTEE PEECISION OF A SCALAE OE MULTIPEECISION NUMBER 



SYNTAX 



Z+N ALPREC X 



o FOR X A SCALAE OE MULTIPRECISION INTEGEE OE FLOATING POINT 
NUMBEE OF PEECISION M (I.E. (pX)=M+l), Z WILL BE SET TO THE 
FLOATING POINT NUMBEE OF PEECISION M+N WHOSE VALUE IS THE 
SAME AS OE TRUNCATED FEOM THAT OF X. (SCALARS HAVE 
IMPLICIT PEECISION 3 . ) 

o IN BRIEF, X IS EXTENDED ON THE EIGHT WITH ZEEOES (IF N>0) 
OE TEUNCATED ON THE EIGHT (IF N<0) . THE EXPONENT (ltX) IS 
INCEEASED BY N TO COMPENSATE. 

o SINCE ALL THE FUNCTIONS IN THE MULTIPEECISION FLOATING 
POINT PACKAGE DETEEMINE THE PEECISION OF THE EESULT FEOM 
THE PEECISION S OF THE INPUT, IT IS OFTEN NECESSAEY TO 
INDICATE THE PEECISION OF SOME EXACT QUANTITY (SUCH AS AN 
INTEGEE) SO AS NOT TO CAUSE INVOLUNTAEY SHOETENING OF 
PRECISION. SEE THE EXAMPLES BELOW. 

° DECREASING THE PRECISION OF A NUMBER (BY USING NEGATIVE N) 
MAY OCCASIONALLY BE NECESSARY IF THE RESULT OF AN INTER- 
MEDIATE CALCULATION IS ASSIGNED A SPURIOUSLY HIGH 
PRECISION BY ONE OF THE ARITHMETIC FUNCTIONS. 

o USES'. 1FL0AT 



FUNCTION : 

V Z+N ALPREC X 
[1] ftIN CREASE THE PRECISION OF X BY N (OR DECREASE IF N IS NEGATIVE) 
[2] Z+(-N-l+X) 9 l + Up,X)+N+N[2-p,X)+X+FL0AT X 

V 



EXAMPLES 



D 
5 76543 2109876 5432109 8765432 1098765 
FORMAT D 
0.0076543 2109876 5432109 8765432 1098765 

FORMAT 1 FDIV D 
130.6451593 9386058 9254313 

n NOTE THE LOSS OF PRECISION. 

ft INSTEAD, ONE, WHICH WE KNOW IS EXACT, MUST BE ASSIGNED 
ft A PRECISION AT LEAST AT GOOD AS THAT OF THE NUMBER D. 
U+ONE+5 ALPREC 1 
71000000 

U+Z+ONE FDIV D 
~5 130 6451593 9386058 9254312 9891047 5895018 

FORMAT Z 
130.6451593 9386058 9254312 9891047 5895018 

ft SIMILARLY, WE CAN AVOID A LOSS OF PRECISION IN ADDITION, 
U+Z+l FADD D 
2 1 76543 2109876 

fl AND THE RIGHT WAY, USING THE PREPARED ONE: 
FORMAT Z+ONE FADD D 
1.0076543 2109876 5432109 8765432 1098765 



HERE 
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CAN 



EDIT MULTIPRECISION INTEGERS INTO CANONICAL FORMAT 



SYNTAX 



Z+CAN A 



INPUT A IS EDITED INTO THE CANONICAL MULTIPRECISION 
INTEGER FORMAT AS DESCRIBED UNDER FUNCTION ADD 
THIS FUNCTION IS USED BY EVERY OTHER FUNCTION 
IN THE MULTIPRECISION INTEGER AND FLOATING 
POINT ARITHMETIC PACKAGES, EXCEPT 1R0UNDS . 
USES: V ROUNDS 



FUNCTION : 

V Z+CAN A;S;L 

[I] PiEDIT A MULTIPRECISION INTEGER INTO CANONICAL FORM 
[2] Z«-l ROUNDS A 

[3] ^PROPAGATE CARRIES LEFTWARD 

[4] LI : Z<-(S,0) + 0,Z- 100 000 OxS+C *Z )*L |Z*10000000 

[5] +(v/0*S)/Ll 

[6] nDROP LEADING ZEROES (BUT PREVENT 0-mO) 

[7] L2:-Kl = pZ«-(( ( 0* l+Z)il)-DJ0)+Z)/L3 

[8] fiMAKE ALL TERMS (EXCEPT THE EXPONENT) THE SAME SIGN 

[9] -*-(~v/S , «-(-L«-l+5')=S-*-xZ)/L3 

[10] -*L2,pZ«-Z+(Lxl0000000xS) + (l + -LxS),0 

[II] L3:Z«-0,Z 



EXAMPLES : 

_A 
1 2345678 9012345 6789012 

B 
222 3333333 4444444 5555555 

A+B 
221 987655 4567901 1233457 

CAN A+B 
221 987654 5432098 8766543 

CAN 123456789012345 
1 2345678 9012345 

CAN 7 . 8 
8 
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DIV 



MULTIPEECISION INTEGEE DIVISION 



SYNTAX 



C+A DIV B 



DIVIDE A BY B, GIVING C, USING MULTIPEECISION INTEGEE 

AEITHMETIC. A AND B MAY BE IN ANY NUMEEIC FOEMAT . 

SEE THE DESCEIPTION UNDEE 1ADD. 

TEE EEMAINDEE OF THE DIVISION IS LEFT IN GLOBAL 

VAEIABLE EEM 

USES: VADD VSUB VMUL VFIX VCAN 



IHRCTION : 

V C+A DIV B;Q;T 

[I] ^MULTIPEECISION INTEGEE DIVIDE WITH EEMAINDEE 
[2] +(2*pB+FIX B)/L2 

[3 3 ^SPECIAL CODE FOE SPEED IF B IS SCALAE 

[4] +C<r(2y.(B+-l\B)=l\EEM+0\l*A*-FIX A)pO 

C5] LI '.C<rC 9 Q<-l(T+10000000LEEM\l*A)±B 

[6] EEM+Q 9 T-Q*B 

[7] +(0<pA+l\A)/Ll 

[8] +0,pC<rCAN C 

[9] L2:EEM+A+FIX A 

[10] -KBA. = ' 'pO<-0 0)+L4,0 

[II] L3 : Q+CANl ( 1 00 0l3 *EEM)±1 0000 012+5 
[12] C+C ADD Q+( l+(pQ)+(pEEM)-pB)+Q 

[13] EEM+EEM SUB B MUL Q 
[1*4] L4:-Kx(pi?£AO-pS)+L3,0 
[15] +L3x( | li2ii?£AO> I 14-2 + 5 
V 



KMM.PL.ES : 

_ _A 
1 2345678 9012345 "6789012 

B 
222 3333333 4444444 

A DIV B 
55528 

EEM 
46 4327157 4297420 

B DIV A 


EEM 
222 3333333 4444444 

A DIV 
{DOMAIN EEEOES PEEVE NT ED , AS IN VCDIV) 

10 DIV 7 
1428571 4285714 2857142 8571428 

EEM 
4 



50 



FADD 



MULTIPRECISION FLOATING POINT ADDITION 



SYNTAX : 



C+A FADD B 



A AND B ARE NUMERIC VARIABLES. 

THEY MAY BE: INTEGER OR FLOATING POINT OF EITHER 

ORDINARY OR EXTENDED PRECISION. 

THE RESULT WILL BE MULTIPRECISION FLOATING POINT. 

A MULTIPRECISION FLOATING POINT NUMBER HAS THE SAME FORMAT 

AS A MULTIPRECISION INTEGER (I.E. INTEGER VECTOR; SEE 

DESCRIPTION UNDER 1ADD) . THE LEADING INTEGER (EXPONENT) 

INDICATES HOW MANY 1-7 DIGIT ELEMENTS FROM THE RIGHT END OF 

THE NUMBER THE DECIMAL POINT BELONGS. IF NEGATIVE, MOVE «- . 

NUMERIC VARIABLES OF ANY FORMAT MAY BE CONVERTED INTO 

MP FLOATING POINT BY THE FUNCTION FLOAT. 

THE PRECISION OF A MULTIPRECISION FLOATING POINT NUMBER 

IS INDICATED BY ITS LENGTH, AND ALL MULTIPRECISION 

FLOATING POINT OPERATIONS SET THE LENGTH OF THE RESULT 

ACCORDING TO THE PRECISION OF THE OPERANDS. IN 

PARTICULAR, THE RESULT OF AN ADD OR SUBTRACT HAS 

A PRECISION SUCH THAT ITS LEAST SIGNIFICANT ELEMENT IS 

GOVERNED BY THE SIGNIFICANCE OF THE OPERAND OF GREATER 

MAGNITUDE. 

THE MULTIPRECISION FLOATING POINT ARITHMETIC PACKAGE 

COMPRISES: IF ADD VFSUB 1FMUL 1FDIV 1FL0AT 1FSQRT 

1FEXP 1PI VALPREC V FORMAT V SCALE 
FADD USES: VFLOAT VADD 



FUNCTION 



V C+A FADD B;M 
[1] ^MULTIPRECISION FLOATING POINT 
[2] M+l/C+(l*A+FLOAT A) ,1+B+FLOAT 
[3] C+([ /C) ,1 + (0;1 + (M--~1 + C)+A)ADD 

V 



ADD 

B 

0,l+(Af-ltC)+B 



EXAMPLES 



U7152 2357206 

B 
222 3333333 4444i+44 5555555 

A FADD B 
222 3333333 4491596 7912761 

C-«- 2 12345 6789012 3456789 

A FADD C 
47152 2369551 

A NOTE THE TRUNCATION 

A TO SEE THE NUMBERS IN USUAL FORM, USE VFORMAT 

FORMAT A 
47152 2357206. 

FORMAT C 
12345.6789012 3456789 
FORMAT A FADD C 
47152 2369551. 



51 



FDIV 



MULTIPRECISION FLOATING POINT DIVISION 



SYNTAX 



C+A FDIV B 



FUNCTION : 



o A, B, AND C ARE MULTIPRECISION FLOATING POINT VALUES. 

{SEE DESCRIPTION FOR VFADD) 
o THE PRECISION OF THE RESULT IS THE SAME OR SLIGHTLY GREATER 

THAN THE SMALLER OF THE PRECISIONS OF THE TWO OPERANDS. 
o USES: VFLOAT VDIV 
o DIVISION BY ZERO WILL RETURN ZERO, AS IN VCDIV. 



V C+A FDIV B;REM 
[1] PtMULTIPRECISION FLOATING _POINT DIVIDE 
[2] C*((1000xltl+ i 4)^ltl+B)+ l + (pB)+0L(pB+FLOAT B)-pA- 
[3] C««-((l+i4)-(l+B)+C),l + (0,l + (C+pi4)+i4)Z?I7 0,1+B 

V 



-FLOAT A 



EXAMPLES : 

B 
222 3333333 4444444 5555555 

FORMAT B 
222 3333333 4444444 5555555. 

C 
"2 12345 6789012 3456789 

FORMAT C 
12345.6789012 3456789 

FORMAT B FDIV C 
180090 0016298 1001574. 

FORMAT (B FMUL OFDIV B 
12345.6789012 3456788 9994910 

HALF 
6 5000000 

FORMAT HALF 
0.5000000 0000000 0000000 0000000 0000000 0000000 

FORMAT B FDIV HALF 
444 6666666 8888889 1111110.0000000 
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FEXP MULTIPRECISION FLOATING POINT EXPONENTIAL FUNCTION 



SYNTAX: Z+-FEXP X 



o RETURNS *X AS A MULTIPRECISION FLOATING POINT NUMBER 
o X MAY BE SCALAR OR MULTIPRECISION FLOATING POINT, 

MP INTEGER BEING A CASE OF FLOATING POINT. 
o SEE: 1ADD 1FADD 
o THE PRECISION OF Z IS CHOSEN TO BE THE SAME AS THAT 

OF X. USE V ALPREC TO INCREASE PRECISION 
o USES: VFLOAT 1ADD VMUL VDIV 



FUNCTION : 

V Z+FEXP XiIiNiT 
[1] f\MULTIPRECISION FLOATING POINT *X BY THE STANDARD POWER SERIES 
[2] Z+T+0A1-N+1+X+FLOAT X) + l + I+0 

[3] x+o,nx 

[4] LOOP'.Z+Z ADD T+N±(T MUL X)DIV J>X+1 
[5] -Kv /T*0)/LOOP 
[6] Z+N,1*Z 



EXAMPLES : 

^CREATE THE CONSTANT 1 BY USE OF FUNCTION ALPREC 

n+ONE+H ALPREC 1 
61000000 

FORMAT ONE 
1.0000000 0000000 0000000 0000000 0000000 0000000 

FEXP ONE 
"6 2 7182818 2845904 5235360 2874713 5266249 7757231 

FORMAT FEXP ONE 
2.7182818 2845904 5235360 2874713 5266249 7757231 

U+MINUSONE+H APPREC "l 
6 "1000000 

FORMAT MINUSONE 
1.0000000 0000000 0000000 0000000 0000000 0000000 

FORMAT FEXP MINUSONE 
0.3678794 4117144 2321595 5237701 6146086 7445811 
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FIX 



CONVERT TO MULTIPRECISION INTEGER 



SYNTAX 



Z+FIX X 



IF X IS SCALAR, IT IS ROUNDED AND CATENATED BEHIND A ZERO 

IF X IS MP INTEGER, IT IS LEFT UNCHANGED. 

IF X IS MULTIPRECISION FLOATING POINT, IT IS TRUNCATED TO 

THE MULTIPRECISION INTEGER WITH THE SAME LEADING SEGMENTS 

SEE THE DESCRIPTIONS FOR: 1FADD 1ADD 

USES: VCAN 



FUNCTION : 

V Z+FIX X 
[1] ^CONVERT A NUMBER TO A MULTIPRECISION INTEGER 
[2] +(KpZ+X)/MP 
[3] -*0,Z*-CAN Z 
F4] MP:-KO = l + Z)/0 

[5] z-KMtfcor i+(i+*) + p*) + i+;r 

V 



EXAMPLES : 

B 
222 3333333 4444444 5555555 

FORMAT B 
222 3333333 4444444 5555555. 

FIX B 
222 3333333 4444444 5555555 

C 
~2 "12345 "6789012 "3456789 

FORMAT C 
"12345.6789012 3456789 

FIX C 
12345 

D 
3 76543 2109876 5432109 

FORMAT D 
0.0076543 2109876 5432109 

FIX D 




7 



8 



FIX 7 



FIX 7.8 
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FLOAT 



CONVERT TO MULTIPEECISION FLOATING POINT [ SCALE 1 



SYNTAX 



Z+FLOAT X 



IF X IS SCALAR, IT WILL BE CONVERTED TO AN MP FLOATING 

POINT NUMBER OF PRECISION 3. 

SEE THE DESCRIPTION OF MP FLOATING POINT FORMAT 

FOR IF ADD. 

USES VCAN. 



FUNCTIONS : 

V Z+FLOAT X 
[1] ^CONVERT A NUMBER TO MULTIPRECISION FLOATING POINT 
[2] -KO<pZ«-X)/0 
[3] X«-L10000000®(X=0)+|X 
[4] Z+-U-2) ,1+CAN Zxl0000000*2-X 
V 

V R+SCALE MP 
[1] a SCALAR APPROXIMATION OF MP 
[2] R+{1 000 00*1 +MP)xl OOOll+MP 

V 
EXAMPLES : 

FLOAT 87 6 
"2 876 

FLOAT 1.2345 
2 "1 2345000 
FLOAT 1E20 
1000000 

FLOAT 2 3 1415926 5358979 
2 3 1415926 5358979 

SCALE 6 ALPREC 1234.1234567 890 
1234.123457 
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FMUL 



MULTIPRECISION FLOATING POINT MULTIPLICATION 



SYNTAX 



C+A FMUL B 



A AND B ARE SCALAR OR MULTIPRECISION NUMBERS. 

RETURNS A MULTIPRECISION PRODUCT. 

SEE DESCRIPTION UNDER IF ADD . 

THE PRECISION OF C IS SUCH TEAT TEE RELATIVE ACCURACY OF 

ITS LEAST SIGNIFICANT DIGIT IS JUST BETTER TEAN 'TEE 

LEAST SIGNIFICANT OF TEE TWO OPERANDS. 

USES: V FLOAT VMUL 



FUNCTION : 

V C+A FMUL B 
[1] ^MULTIPRECISION FLOATING POINT MULTIPLY 
[2] C+iO.l+A+FLOAT A)MUL O.ltB+FLOAT B 
[3] C+( ( ltd ) + ( 1+B)-C) ,(£«-( 2 -pC)r2-(pil)rpB Hl+C 

V 



EXAMPLES 



47152 2357206 

HALF 
6 5000000 

FORMAT EALF 
0.5000000 0000000 0000000 0000000 0000000 0000000 

A FMUL EALF 
"1 23576 1178603 

FORMAT A FMUL EALF 
23576 1178603.0000000 

C 

2 12345 6789012 3456789 

C FMUL EALF 

3 6172 8394506 1728394 5000000 

FORMAT C FMUL EALF 
6172.8394506 1728394 5000000 

TWO 
5 2 

FORMAT TWO 
2.0000000 0000000 0000000 0000000 0000000 

TWO FMUL EALF 
61000000 

FORMAT TWO FMUL HALF 
1.0000000 0000000 0000000 0000000 0000000 0000000 
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FORMAT 



CONVERT MULTIPRECISION NUMBER TO CHARACTER STRING 



SYNTAX 



Z+FORMAT X 



RETURNS A CHARACTER STRING WITH SEVEN-DIGIT GROUPS 
OF DECIMAL DIGITS PUNCTUATED BY SINGLE BLANKS 
OR DECIMAL POINT. 



IU.IQ.TION : 

V Z+FORMAT A1B1E 

[13 ^CONVERT A MULTIPRECISION NUMBER TO A CHARACTER STRING 

[23 r\GET THE EXPONENT, AND INSERT LEADING AND TRAILING ZEROES 
[33 A + i(0[2-E+pA)p0) 9 l*AA0tE+l+A)Q0 

[43 Z<-( 8 ▼( |4)+10000000-(piO + 10000000), ! ' 

[53 ZlB+(Qxl+\pA)-7*Ul01+ l ' 

[63 filNSERT A DECIMAL POINT ON TOP OF A BLANK, E GROUPS FROM THE RIGHT 
[73 Z[lM~lLE-lH£3*- f . ' 

[83 fiDROP LEADING BLANKS, INSERT " JUST IN FRONT 
[93 Z^aoi-M)/'" 1 ),(-Dl0-(Z=' V)iO HZ 



RK&MPL.RS ' 

B 
222 3333333 4444444 5555555 

FORMAT B 
222 3333333 1+444444 5555555. 

C 
"2 "12345 "6789012 "3456789 

FORMAT C 
"12345.6789012 3456789 

D 
"3 76543 2109876 5432109 

FORMAT D 
0.0076543 2109876 5432109 

FORMAT "5 7 4 
0.0000000 0000000 0000000 0000000 0000074 
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FSQRT MULTIPRECISION FLOATING POINT SQUARE ROOT 

SYNTAX: C+FSQRT A 



o RETURNS THE MULTIPRECISION FLOATING POINT FORM OF 

TEE SQUARE ROOT OF A . 
o A MAY BE SCALAR, MP INTEGER, OR MP FLOATING POINT. 
o TEE PRECISION OF TEE RESULT IS TEAT OF TEE OPERAND 

(SEE TEE DESCRIPTION FOR VFADD.) 
o USES: V FLOAT VSQRT 



FUNCTION : 



V C+FSQRT A\E\M 
[1] ^MULTIPRECISION FLOATING POINT SQUARE ROOT 
[2] M«-|~0.5xl+(O-2 \E+l\A)-pA<rFLOAT A 
[3] C+(M+LQ.5*E),1±SQRT , l + ( ( pA )+C-2*M)+A 

V 



EXAMPLES : 

B 
222 3333333 4444444 5555555 

FORMAT B 
222 3333333 4444444 5555555. 

D+Z+FSQRT B 
2 47152 2357205 3020324 9027073 

FORMAT Z 
47152 2357205.3020324 9027073 

FORMAT Z FMUL Z 
222 3333333 4444444 55 55554.9929000 

U+TWO+3 ALPREC 2 
""5200000 

FORMAT TWO 
2.0000000 0000000 0000000 0000000 0000000 

U+Z+FSQRT TWO 
"5 1 4142135 6237309 5048801 6887242 969807 

FORMAT Z FMUL Z 
1.9999999 9999999 9999999 9999999 9999997 
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FSUB 



MULTIPRECISION FLOATING POINT SUBTRACTION 



SYNTAX: 



C+A FSUB B 



o SUBTRACT B FROM A, USING MULTIPRECISION FLOATING POINT 
ARITHMETIC. A AND B MAY BE IN ANY NUMERIC FORMAT. 
{SEE DESCRIPTION UNDER 1FADD) 

o USES: VFLOAT VFADD. 



FUNQZLQN : 

V C+A FSUB B 
[1] &MULTIPRECISION FLOATING POINT SUB 
[2] C+iA+FLOAT A)FADD(ltB) , -1+B+FLOAT B 

V 



EXAMPLES. : 



47152 2357206 

B 
222 3333333 4444444 5555555 

A FSUB B 
222 "3333333 "4397292 "3198349 

C 
"2 12345 6789012 3456789 

A FSUB C 
47152 2344861 

U+D+ 3 76543 2109876 5432109 
"3 76543 2109876 5432109 

C FSUB D 
"2 12345 6712469 1346913 

FORMAT C 
12345.6789012 3456789 

FORMAT D 
0.0076543 2109876 5432109 

FORMAT C FSUB D 
12345.6712469 1346913 
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MUL 



MULTIPRECISION INTEGER MULTIPLICATION 



SYNTAX : 



C+A MUL B 



A IS MULTIPLIED BY B, GIVING C, USING MULTIPRECISION 
INTEGER ARITHMETIC; A AND B MAY BE IN ANY NUMERIC FORMAT 
SEE THE DESCRIPTION UNDER VADD 
USES: VFIX 1CAN 



FU.NCTIQN : 

V C+A MUL B 

[1] ^MULTIPRECISION INTEGER MULTIPLY 

[2] f\MAKE A THE SHORTER OF THE ARGUMENTS TO SAVE SPACE 
C3] +{{pA) = {pA*-FIX A)LpB<-FIX B)/L1 
[ 4 ] C+A 
[5] A+-B 
[ 6 3 B+C 

[7] nCHECK FOR POSSIBLE OVERFLOW (720 = ( 2*56 )*1£7*2 ) . 

[8] Ll:-K720>ltpC«-ilo.xB)/L2 

[9] C-*-((LC* 10000000), 0)+0, 1000000 0'|C 
[10] L2:C«-CAN+/(UlO-\pA)4>CA(pA) ,"l+p4)p0 



KKAMPLES : 



1 2345678 9012345 6789012 

B 
222 3333333 4444444 

A MUL B 
274 "4855942 5116597 4938071 3415514 "3649328 

123456 MUL 876543 
10821 4492608 

5 MUL B 
1111 6666667 2222220 
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SQRT 



MULTIPRECISION INTEGER SQUARE ROOT 



SYNTAX 



Z+SQRT A 



A MAY BE SCALAR OR MULTIPRECISION BUT WILL BE TRUNCATED 

TO AN INTEGER. 

RUNNING TIME IS PROPORTIONAL TO (pA)*®pA, AND IS MUCH 

FASTER FOR NUMBERS WITH MANY TRAILING ZEROES. 

USES: VFIX 1SUB 1MUL 1DIV 1CAN. 



FUNCTION : 

V Z+SQRT A1F1N1REM 

[1] ^MULTIPRECISION INTEGER SQUARE ROOT BY ELEMENTARY RECURSION 

[2] P.GET AN ACCURATE STARTING VALUE 

[3] Z«-(ff«-l + LO. 5xpA) + CA/Kl0000000JL(6 + 2 \pA)iA+FIX A)*0.5 

[4] PiDROP TRAILING ZEROES FROM A AND DOUBLE IT 

[5] -»-OxiO = l«M+j4"KMff 2x((p4)+niO-(<l>0*A)ilMA 

[6] LOOP\Z+N\Z MUL F-K ( l + pF)+ 1 5000000 )SUB **«-( (ff+pd HZ MUL Z)DIV 
[7] +{1<+/N+F)/L00P 



EXAMPLES : 

B 
222 3333333 4444444 5555555 

U+A+SQRT B 
47152 2357205 

A MUL A 
222 3333333 4415961 5412025 

NOTICE THAT THIS ESTIMATE OF B* .5 IS SLIGHTLY LOW 

U+A+A ADD 1 
47152 2357206 

A MUL A 
222 3333333 4510266 126436 

BUT THE NEXT HIGHER INTEGER IS SLIGHTLY TOO HIGH, 

SO THAT THE TRUE SQUARE ROOT IS BRACKETED BETWEEN 

THESE TWO VALUES. 
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SUB 



MULTIPRECISION INTEGER SUBTRACTION 



SYNTAX 



C+A SUB B 



o SUBTRACT B FROM A % GIVING C> USING MULTIPRECISION INTEGER 
ARITHMETIC . A AND B MAY BE IN ANY NUMERIC FORMAT, C WILL BE 
MP INTEGER. SEE VADD . 

o USES: V ADD IF IX 



FUNCTION 



V C+A SUB B 
[1] ^MULTIPRECISION INTEGER SUBTRACT 
[2] C+U+FIX A)ADD-B*-FIX B 

V 



EXAMPLES : 

A 
1 2345678 9012345 6789012 

B 
222 3333333 4444444 

A SUB B 
1 2345456 5679012 2344568 

A SUB 4 
1 2345678 9012345 6789008 

B SUB B 
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Section V 



Mathematical / Numerical Functions 



AMORTIZE 



MORTGAGE CALCULATION BY MONTHS 



auux: 



M+AMORTIZE DEBT ,RATE , MONTHS 



DISPLAYS MORTGAGE TABLE INDICATING THE PROGRESSIVE DEBT 

REDUCTION, AND THE LEVEL PAYMENT SCHEDULE, AS IT BREAKS 

DOWN BETWEEN AMORTIZED DEBT AND INTEREST. 

DEBT IS TOTAL UNITS (E.G., DOLLARS) BORROWED. 

RATE IS ANNUAL INTEREST, AS PERCENTAGE (E.G., .095). 

MONTHS (E.G., 120 IF TEN YEAR MORTGAGE). 

RETURNS A MATRIX THAT RETAINS FULL PRECISION 

FOR SUMMARY CALCULATIONS. (SEE EXAMPLE) 

USES: VOUTPUT 



FUNCTION: 



V •M+AMORTIZE NV3-,UI0 

[1] RATE+NV3l2]*12*niO+l 

[2] MONTHS+NV3L31 

[3] DEBT+-N V3l 11 

[4] M+(MONTHS,5)pI+0 

C 5 ] PAYMENT+DEBTxRATEH- * ( 1+RATE ) ^MONTHS 

[6] BACK:NEWDEBT+DEBT-AMORTIZED<-PAYMENT-INTEREST+DEBTxRATE 

[7] Mil ;>(I«-I+1) , DEBT, PAYMENT, AMORTIZED , INTEREST 

[8] +(0<DEBT+NEWDEBT) /BACK 

[9] »M DEBT PAYMT AMORT INT<0UTPUT(§ 0*0 ~4+M), ! ',' ',9 2*0 



1\M 



MUELKS : 










M+AMORTIZE 10 00 


.06 12 






Ji 


DEBT 


PAYMT 


AMORT 


INT 


1 


1000. 00 


86. 07 


81. 07 


5.00 


2 


918.93 


86.07 


81.47 


4. 59 


3 


837.46 


86.07 


81 .88 


4.19 


4 


755.58 


86.07 


82.29 


3 .78 


5 


673.29 


86.07 


82.70 


3 .37 


6 


590.59 


86.07 


83.11 


2.95 


7 


507.48 


86. 07 


83.53 


2. 54 


8 


423.95 


86.07 


83.95 


2.12 


9 


340. 01 


86.07 


84.37 


1.70 


10 


255.64 


86.*07 


84.79 


1.28 


11 


170.85 


86.07 


85.21 


0.85 


12 


85.64 


86.07 


85.64 


0.43 



+/ 2\M 
1032.797156 1000 32.79715648 

fl f TOTAL INTEREST PAID 

ft + TOTAL DEBT REPAID 

ft + TOTAL REPAID 
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CONV 



CONVERT DECIMAL VALUES TO ANY BASE [ DIGITS CONFRAC ] 



SYNT.AX : 



R+BASE CONV DEC 



° VALUES ARE CONVERTED TO CHARACTER STRINGS TEAT RETAIN THEIR 

ARITHMETIC CAPABILITY . 
° THE CHARACTER STRINGS CAN BE RECONVERTED BY 1DEC . 
o THE GLOBAL VARIABLE, DIGITS WILL SUPPORT UP TO BASE 36. 

THE CATENATION OF UNDERSCORED LETTERS AND OTHER CHARACTERS 

TO DIGITS WILL PERMIT LARGER BASES. 
o NEGATIVE NUMBERS WILL BE TREATED CORRECTLY. 
° FRACTIONS WILL BE CLOSELY APPROXIMATED. 
o INTEGER CONVERSIONS, E. G. , HEXADECIMAL, WILL BE EXACT. 
° USES: 1ENC 1DL 1C0NFRAC 

lUNQTIONS: 

V R+BASE CONV DEC ;UI0 
[1] UIO+O 

£ 2 ] DIGITS.*- '012345678 9ABCDEFGHIJKLMN0PQRSTUVWXYZ ' 
[3] R+' X DL' 'tDEC<0l,'0'DL DIGITSLBASE ENCI\DEC1 
[4] R+R,BASE CONFRAC DEC 

V V R+B CONFRAC N \UI0 ;NN ;BB ;UCT 

[1] UCT+1E 15 

[2] ->0 IF 0=NN+1 | \N,R<-\niO<-J+0 
S.KAUPLES: [3] BACKiR+R ,LNN*BB+B*-J+J + 1 

[4] +BACK IF 1*1+NN+BB\NN 

10DEC 10CONV 10£#C ! ~1234.5678' [5] R+ ' . » ,DIGITSlR1 
"1234.5678 [6] A CONVERTS DECIMAL FRACTIONS 

16Z?tfC f 20 00 0' V 

131072 

36C0NV 123456789 
211379 

36DEC 36C0NV 1234567890123456 
1234567890123456 

ANALYSIS'. 16 CONV 13107 2 

[3] i?«-' '£>£' ~'IDEC<0~},'0'DL DIGITSLBASE ENCl\_DECl 

ABSOLUTE VALUE 
131072 
[3] R<r' r DL' "~'lDEC<0l,'0 1 DL DI GITSl BASE _ENCL \ DEC 1 

(SEE SIENC) 
2 
[3] f?*- 1 'Z?L' ~'[Z?£C<0], 'O'tfL UZgZEgtBASE ENC_V \DECl 

SELECTED 
020000 
[3] /?■*•' '££' ~ f [/?£<?< 0], 'O^^'.filgl^C?^^ 2W£L|0tfC;] 

LEADING ZERO DELETE 
20000 

[3] J?*-» »£L^_ H[5?^ <0 ^i , 0l I '5_2IgIfg[545 , ff_5^U5£'C;] 

_^ NEGATIVE 

20000 
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DATE 



COMPUTE NORMAL DATE FROM ASTRONOMERS' DAY NUMBER 



SYNTAX 



Z+DATE JS 



RETURNS MONTH, DAY , YEAR, STYLE. (SEE 1DAYN0) 
JS IS THE JULIAN DAY NUMBER AS WOULD BE FOUND BY VDAYNO 
JS MAY BE A SINGLE VALUE OR A VECTOR. OPTIONALLY, IT 
MAY BE AN ARRAY OF SHAPE (N,2) WHERE THE SECOND COLUMN 
IS OR 1, STATING FOR EACH JULIAN DAY WHETHER THE 
OLD (0) OR NEW (1) CALENDAR WAS IN USE. NORMALLY, 
THIS STYLE IS COMPUTED AUTOMATICALLY. 



FUNCTION : 

V Z+DATE JS;C\D\J\M;S\Y 

[I] ^CONVERT JULIAN DAY NUMBER (AND OPTIONAL STYLE) TO DAY , MO , YEAR, STYLE 
[2] PiJS MAY ALSO BE A VECTOR OF JD'S OR AN ARRAY OF JD'S AND STYLES. 

[3] JS+(2+(pJS),l DpJS 

[4] S+(J>2H23^3H)v(J>2299ni)*(JS,2361221<J+JSt lUlODL ;-Ql0 + l] 

[5] C+KJ+J-163^595)* 36524.25 

[6] e 7-K7+((~S')x(2-C) + rC*i+)-r36 52 4.2 5xC 

[7] Y+L(J+1)*355. 25025 

[8] J«-J>31-L365.25xy 

[9] D+J-L30. 5875xM«-LJ>30.5875 

[10] M+M+2-12xJ+lM*ll 

[II] Z<-M,D 9 (J + Y+100*C-1) t iniO + 0.5lS 



EXAMPLES 



U+Z+DAYNO 5 17 197 7 
2U43281 

DATE Z 
5 17 1977 1 

DATE Z 



Z+30 
1977 
1977 



5 17 1977 1 

6 16 1977 1 
n IF THE OLD STYLE 
A THE NEW STYLE IN 
A GIVE THE STYLE. 

U+Z+DAYNO 1 1 18 00 
2378497 

DATE Z 
1 1 1800 1 

A BUT IN RUSSIA 

DATE 1 2pZ,0 
12 21 1799 



CALENDAR WAS IN USE AFTER 17 52, OR 
USE BEFORE THEN, THE USER MUST 
FOR EXAMPLE, IN THE USA'. 
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DAYNO DAY NUMBER FOR ASTRONOMERS C MOONPHASE ] 

SYNTAX: Z+DAYNO DATE 

•o DAYS SINCE 1/1/4713 B.C. (SEE VDATE) 

o DATE IS MONTH, DAY , YEAR. IT MAY BE A SINGLE 

SUCH TRIPLET OR A MATRIX, EACH ROW OF WHICH IS A TRIPLET. 
o OPTIONALLY , THE INPUT MAY HAVE A FOURTH COMPONENT OR COLUMN 

OF OR 1 FOR EACH DATE, STATING WHETHER THE OLD (0) OR 

NEW (1) STYLE CALENDAR WAS IN USE. NORMALLY, THIS IS 

COMPUTED AUTOMATICALLY. 
o DAY OF THE WEEK MAY BE COMPUTED BY 1+7] 1+DA YNO DATE. 

SUNDAY = 1 SATURDAY = 7. (SEE VDAYS) 

lUNQTIONS : 

V Z+DAYNO DATE;C-,D;JF;M;S;Y 
[1] ^COMPUTE JULIAN DAY NUMBER. DATE IS A VECTOR OR ARRAY WHOSE ROWS ARE 
[2] fiMONTH , DAY ,YEAR , STYLE . STYLE IS AN OPTIONAL LOGICAL VALUE = 1 IF THE 
[3] fiNEW STYLE (GREGORIAN) CALENDAR SHOULD BE USED. THE JULIAN DAY IS 
[4] f\A CONTINUOUS COUNT THAT BEGAN AT AT NOON, 1/1/~4712 (I.E. 4713 BC) . 
[5] DATE+( 2il, pDATE)pDATE 

[6] Z+100±(Y+DATEl ; 2+DI0] ) , LQI01 (M*-DATEi ;UI0 ] ) , LUlO- . 5 ~]D*-DATEl ; l+D-Ttf] 
[7] 5^-(2>19230114)v(E>15821025)a(Z?/15 , £',2>17520902)[ ;3+DIC] 
[8] C^(2x~5') + 0.75x J SxL0.01xy-JF<-2^M 

[9] Z+31+D+ (1367 *JF+(M- 2) *12)-[C- 1365. 25*H712+Y-JF 
V 

V R+-MOONPHASE MDYS 
[1] (=10.0 IS tf£J/ MOON ',0.1 5 IS LAST QUARTER 
EXAMPLES: [2] i?^2?l | 42 9 . 53 059*~9+DAYNO MDYS 

V 
MJil/0 5 17 1977 
2443281 

CH-Z«-4 3p2 28 1900 3 1 1900 2 28 2000 3 1 2000 

2 28 1900 

3 1 1900 

2 28 2000 

3 1 2000 
DAYNO Z 

2415079 2415080 2451603 2451605 

ft AS CAN BE SEEN, 1900 WAS NOT A LEAP YEAR, BUT 2 00 WILL BE ONE. 
1+7 | 1+DAYNO 5 17 1977 
3 

ft I.E. TUESDAY 

MOONPHASE 5 17 1977 
0.99 

ft I.E. JUST BEFORE NEW MOON 

(DAYNO 5 17 1977)-DAYNO 1 1 1901 
27895 

ft THE AGE IN DAYS OF THE TWENTIETH CENTURY. 

ft IF THE OLD STYLE CALENDAR WAS IN USE AFTER 1752, OR THE 
ft NEW STYLE IN USE BEFORE THEN, THE STYLE MUST BE ENTERED. 
ft FOR EXAMPLE, IN RUSSIA BEFORE THE REVOLUTION (COMPARE ABOVE) 
DAYNO 2 28 1900 
2415091 
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DAYS 



DATE CALCULATIONS C DATES NDATES PAYDAY 1 



&Z&M&'- 



N+DAYS D 



D+DATES N 



R+N DATES KM 



GIVEN A NUMERIC VECTOR OR MATRIX OF THE FORM: 

MONTH, DAY, YEAR (1 30 1977), DAYS HILL RETURN 

FOR EACH, THE NUMBER OF DAYS SINCE 1/1/1, INCLUSIVE, 

AS IF THE GREGORIAN CALENDAR HAD BE&N IN USE CONTINUALLY, 

WITH NO LOSS AT THE CHANGE (IN ENGLAND ON SEPTEMBER 14, 

17 52.) FOR A BETTER FUNCTION, SEE VDAYNO . 

THE ,1\ OF DAYS, CAN SELECT THE DAYS OF THE WEEK, 

WITH 0++SUNDAY, 1++M0NDAY , ETC, 

DATES CONVERTS THE DAYS BACK INTO CALENDAR DATES. 

NDATES CONVERTS DATES AVAILABLE AS CHARACTER MATRICES 

OF THE FORM: * 013077' TO THAT REQUIRED B2 DAYS . 



ZMG.IIQ.N.&* 



Cl] 
[2] 
[3] 
C4] 
[5] 



Cl] 
[2] 
[3] 
C4] 
[5] 



Cl] 
C2] 
C3] 



' N+DAYS D',P',I',UI0 

ZMWI«-*"l + pfl),3)pZ> ADI0«-1 

P«-=/0*(/IM0,[0.1]4 100 400)TZ?t ;3])[2;;1 
JM-(365x£C;3]-l) + -/iV[l; ;]»Cl]P 

N+IpN+Dt ;2]t(L30.56xZ?[ ;l])-30*(Z>[ ;l]*3)x2-P 
ft NOT ACCURATE PRIOR TO 1753. USE VDAYNO . 



D+DATES NiYiMiPiRiQIO 

M«-(0,C0.l]4 100 400)T;iML(364+2K,tf)*365»2425)o .+O,QI0*1 
D*-D-,0 ~*l + (R+-D>Mt ;2])<M+(3 65*Y-:i) + -/Afti;; I 1 » C 1 3P«-*/0*A/t 2 ; J ;1 
D+D-L30. 56x^^L(^30+Z?t(Z?>59+P)x2- i P^(i?<|>P)[il})*30.56 
IM(pff), 3)pM,P,0 ~i+p<i>y 
ft #02* ACCURATE PRIOR TO 1753. £#£ VDAYNO 



R+N DATES KM 

2M(l + pKAO,3)p!,l 10 11 
f?[ ;Dl0 + 2>i?C ;Ol0t2]*i9QO 
ft ASSUMES 20TH CENTURY 



Oil 0\#M 



KZMELIS. ' 



v p^-p^y^y mz?T;DI0 

[1] pi FRIDAY, ON OR BEFORE MDY 
[2] R+(DAYS MDY)-\7+niO+0 
C3] R+DATES i?C(7 |P)i5] 
V 

Pi4YZ?i4I 6 30 197 7 
6 24 1977 



AA 



081118 
021926 
031354 
062758 

8 
2 
3 
6 



DATES 
11 
19 
13 
27 



DAYS NDATES 
1918 
1926 
1954 
1958 



AA 



(ft 



DEC CONVERT TO DECIMAL 

R+BASE DEC Q 



* CHARACTER VECTORS BELONGING TO THE GLOBAL DI&IT&,'' .' 
REPRESENTING SCALAR NUMBERS IN ANY BASE, WILL SEEM 
TO BE CONVERTED TO THEIR DECIMAL VALUES, WITH WHICH 
ORDINARY CALCULATIONS CAN BE MADE. 

« . WILL BE UNDERSTOOD AS SEPARATING THE INTEGER PORTION 
FROM ANY POSSIBLE FRACTION. FRACTIONS WILL BE CLOSELY 
APPROXIMATED. INTEGERS WILL BE EXACT, UNLESS THEY ARE 
FORCED TO FLOAT. 

o ARITHMETIC RESULTS CAN BE CONVERTED TO OTHER BASES 
THROUGH THE USE OF VCONV. 

&££!£& WILL SUPPORT BASES 2ZBASEZ3Q. 

o USES: V ESCAPE 



■w bU vLsL ass* «E»mL *' 



V R+BASE DEC Q;UI0;P;S 
[1] Q+iS+Q* 1 ' 1 )/Q+{P<-Q*' . ' )/Q 

[2] 'CHARACTER ERROR' ESCAPE~*/Q€BASE+R«-DZQZ£S 
[3] R*(l~2xOeS)x{BASE*-or~l++/v\~P)xBASE±RiQ,\UlO+0 

(10 ZW1234* )=i?1234 
1 

16 ZW20000' 
131072 

(16 DEC2Q00Q* )+16DEC'FFFF' 
196607 

16 CONV (16DEC'FFFF')-16DEC123^' 
EDCB 

10 CONV '12345.6789 
~12345. 67889999999988 

10 CONV 2*~16 
.00001525878906 

16 DEC 1SC0NV 2*~16 
1.525878906£*~5 

16 CONV 2*~16 
.0001 

16 CONV 2*~6i+ 
.0 

16 CONV 2*~32 
.00000001 

AEA&l&Z&i 16 DEC '"EDCB. 12 5' 

C3] R+(l-2xO£S)x(BASE*-Qf~l++/v\~P)xBASElR\Q t \UIO+0 

DIGJTS 

— EVALUATED 

p0INT RETUHNED 

sign RETVRNED 

""60875.07153 
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DEOUNDS DISTRIBUTIVE ROUNDING OF A VECTOR TO ARBITRARY SCALAR UNIT 

SYNTAX: R+U DROUNDS V 

o ROUNDING THE ELEMENTS OF A VECTOR BEFORE SUMMATION MAY CAUSE 
AN ERROR IN THE SUM. ROUND-OFF ERRORS DO NOT NECESSARILY 
COMPENSATE. IT WOULD BE GOOD PRACTICE TO CARRY MAXIMUM 
PRECISION UNTIL THE FINAL SUMMATION, THEN ROUNDING THE SUM. 

o WHEN THIS IS NOT POSSIBLE, WE WOULD STILL WANT THE ROUNDED 
SUM TO EQUAL THE SUM OF THE ROUNDED ELEMENTS. SEE GROUNDS 
FUNCTION : 

V R+U DROUNDS V;UCT ;UI0 -,E;N 
[ 1 ] E+l | V+V*U+UCT+UIO+0 
[2] N+(L0.5++/V)-+/LV 
[3] R+U*(LV)+N>ME 

V 
EXAMPLE : 

A 
0.86 0.21 0.95 0.9 0.7 0.69 0.44 0.59 0.16 0.57 0.06 0.47 0.6 0.46 0.93 0.61 

+ /A 
9.2 

+/.1 ROUNDS A 
9.4 

+/.1 DROUNDS A 
9.2 

ANALYSIS: .1 DROUNDS A 

[i] #^li?tr*? + Q£?!tQI2t 

"""" ~ 'ERRORS IF FLOOR USED. NOTE EFFECT OF UCT+Q 

0.6 0.1 0.5 1 1 0.9 0.4 0.9 0.6 0.7 0.6 0.7 1 0.6 0.3 0.1 
[2] tf«-(L0.5 + + /7)-+/|_F 

"FLOORS 
8298664515045496 
[2] ff«-(L0.5 + + /7)-+/L7 

82 

[2] ilN-(L0.5 + + /7)-+/L7 

'ROUNDED UP FOR TESTING 
92 

10 ADJUSTMENTS NEEDED, BUT WHERE? 

[3] R+Ux{LV)+N>ME 

LOCATION, BY SEVERITY 
10 14 11 2 3 12 4 8 5 7 6 1 9 13 15 
[.3] R+U*(LV)+N>llE 

~ "HERE I (10 WORST REPRESENTED BY FLOOR) 
0001110111111100 
[3] R<rUx{LV)+N>WE 

8.6 2.1 9.5 9 7 6.9 4.4 5.9 1.6 5.7 0.6 4.7 6 4.6 9.3 6.1 
[3] R+U*(LV)+N>k1/E 

8298664515045496 

[3] R<rUx ilZllHiklE 

go 

8299774626156596 



ENC GENERATE SUFFICIENT ENCODING POSITIONS 

SYNTAX'. R+S ENC A 

ENCODE(T) AND DECODE(l) WOULD BE FULLY COMPLEMENTARY IF 
SUFFICIENT RADIX POSITIONS COULD BE SUPPLIED. SIENC WILL 
PERFORM TEE FULL REPRESENTATION OF ITS ARGUMENT, 
ACCORDING TO THE RADIX, S. (S>1 ) a ( 1<L I A ) 
FUNCTION : 

V R+S ENC A 
[1] a 1<S 1<1/A 

[2] i?^((i+rs , ®irr/,^)p5)T^ 

V 
KliMPLES-. 

12 ENC 143 144 145 



Oil 
11 
11 1 

12112 ENC 143 144 145 12112 12T143 144 145 

143 144 145 143 1 ( TWO TWELVES NOT ENOUGH) 

AML.YSIS : 

12 ENC 143 144 145 

[2] R+((l+{S91tr / a A)pS)TA 

143 144 145 

[2] i?^((i+r5®irr/,^)p5;)T^ 

12 

[2] R+((l + tSei[J_/ ,A)qS)tA 

GUARDING AGAINST ZERO 
145 
[2] R+((l + [S®lH/_ 1 A)pS)TA 

2.002784991 

[2] i?^-( ( i+£^®irr/ ±i 4)p-s')T^ 

3 

[2] R<-((l + lS®m/_ 1 A)pS)TA 

GUARD HIGH- ORDER POSITION 
4 

[2] ^^((.liL^lLE/idlp?) 1 "^ 

12 12 12 12 

[2] ^.tiiltL^tlLLLiil^lli 


Oil 

110 

11 1 70 



FREQ 



FREQUENCY DISTRIBUTION OF ELEMENTS C SORTDA KFORM ] 



SYNTAX 



R+FREQ A 



FUNCTIONS 



THE ARGUMENTS MUST BE NUMERIC CODES, OR NUMERIC 
REPRESENTATIONS OF CHARACTER GROUPS. 
TWO NUMERIC COLUMNS WILL BE RETURNED: 
THE FIRST, THE COUNT, OR FREQUENCY 
THE SECOND, THE CORRESPONDING CATEGORY. 
FREQUENCY WILL APPEAR IN DESCENDING ORDER, 
WITHIN WHICH THE CATEGORIES WILL ASCEND. 
USES: VDREP 



V R+FREQ A 
[1] A A IS A NUMERIC STRUCTURE. USE LJNFORM OR NFORM TO CONVERT. 
[3] a IF THE ARGUMENT IS A CONVERTED CHARACTER MATRIX, 
[4] a THE SECOND COLUMN OF THE RESULT CAN BE RECONVERTED BY KFORM, 
[5] R+(\2)SORTDA$R,lUlO+0.5l+fAo .=R+DREP A+,A 
V 

V K+C KFORM N',UIO 
EKAMPLES: [1] K+DLBSCMllppOTNlL QIO+0 

V 
FREQ ?5p5 
2 2 

2 4 (2 TWO'S, 2 FOURS, 1 THREE, NO ONES, NO FIVES) 
1 3 



ilM 


AV, 




( 


9 




1+ 


£ 


4 





2 


4 


2 


B 


2 


C 


2 


D 


2 


H 


2 


K 


2 


R 


2 


T 


2 


U 


1 


F 


1 


G 


1 


I 


1 


J 


1 


L 


1 


M 


1 


N 


1 


P 


1 


Q 


1 


S 


1 


V 


1 


W 


1 


X 


1 


Y 


1 


Z 


1 


t 



» '♦_!_) NFORM VERT'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOC'S BACK' 
TO ±\R) , MATRIX (i47, f,fl ) KFORM HR+FREQ N 
(NINE BLANKS) 



Cl] 
[2] 
[3] 
[4] 
[53 



V R+DA SORTDA M;N 
ft DA IS A PAIR OF COLUMN NUMBERS IN USER'S ORIGIN. 
A A CONTROLS THE INITIAL ASCENDING SORT. 

FINAL DESCENDING SORT. 
MATRIX WHICH MAY RESULT FROM NFORM. 
, ltZM];])[ ;1+ZM];] 



A D CONTROLS THE 

ft M IS A NUMERIC 

R+Niy ,(N+Mlk,ML 
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PI 



COMPUTE PI TO ARBITRARY PRECISION 



SYNTAX: 



SUM+PI N 



COMPUTE PI (3. 14 15 9+) TO 7xtf DECIMAL DIGITS OF PRECISION 
THE ARCSIN POWER SERIES ( 6* 1-0.5) IS SUMMED--NOT TEE 
FASTEST KNOWN METHOD, BUT FAR FROM THE SLOWEST 
RUNNING TIME IS PROPORTIONAL TO N*2 
USES: 1ADD 1MUL 1DIV 



IMQ.TI0N : 

V SUM+PI N;I;TERM;REM 

[1] ^COMPUTE PI TO 7*N DECIMAL PLACES BY THE POWER SERIES FOR 6*~lo.5 

[2] SUM+TERM+0,(N+I+l)i3 

[3] L00P:TERM+(TERM MUL I)DIV 4xJ+l 

[4] SUM+SUM ADD TERM DIV I+I+2 

[5] +(v/TERM*0)/LOOP 

[6] SUM+(-N),HrSUM 



EXAMPLES 



6 3 



U+P+PI 
1115926 



5358979 3238462 6433832 7950288 4197136 



ft COMPUTE THE RAMANUJAN NUMBER *oK*.5 FOR Z=163 
CH-Z+-3 ALPREC 163 
5 163 

FORMAT Z+FSQRT K 
12.7671453 3480370 4661710 9520097 8089234 

FORMAT Z+P FMUL Z 
40.1091699 9113251 9755350 0836229 0414003 

FORMAT Z+FEXP Z 
2625 3741264 07 68743.99 99999 9999925 0066319 1466030 7724958 
ft FOR NUMEROUS OTHER VALUES OF K, THESE NUMBERS ARE VERY 
ft CLOSE TO PERFECT INTEGERS. ALL THE MORE REMARKABLE THAT 
ft RAMANUJAN DISCOVERED THEM IN 1915 WITHOUT THE AID OF A 
ft COMPUTER. 
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QPROBF COMPUTE CHI SQUARE PROBABILITY FUNCTION 

SYNTAX: Z+CHISQ QPROBF NU 

o COMPUTE THE PROBABILITY OF A GIVEN CHI SQUARE VALUE 

OCCURRING FOR A GIVEN NU (NUMBER OF DEGREES OF FREEDOM) 
o NU IS ROUNDED DOWN TO THE NEXT LOWER EVEN INTEGER 
o NOTE THE EXTREME ELEGANCE WITH WHICH IT IS POSSIBLE 
IN APL TO EXPRESS A POWER SERIES 

FUNCTION : 

V Z+CHISQ QPROBF NU 
[1] ^COMPUTE Q(CHISQ\NU) , WHERE NU IS ROUNDED DOWN TO AN EVEN INTEGER 
[2] Z+(*-CHISQ*2)x(CHISQ*2)±$*x\l[-[]ld-\LNU*2 

V 

EXAMPLES : 

5.7 8 QPROBF 2 
0.999164 

2 7.3 QPROBF 2 
0.127033 

2 7.3 QPROBF 4 
0.93691 

ANAL.ZS.IS' 5.7 8 QPROBF 2 

[2] Z+(*-CHISQ*2)x(CHISQi2)±$*x\l[2Ul02iLNUi2 

0123456789 

[2] Z+(*-CHISQ*2)x(CHISQ*2)±<btx\l[_2UlO z \LNUi2 

1123456789 

[2] Z+(*-CHISQ*2)x(CHISQ*2)±<b*x\l[_2UlO-\LNUi2 

1 1 2 6 24 120 720 5040 40320 362880 

[2] Z+(*-CHISQ*2)x(CHISQ-*2)±$*x\ll-Ul02\LNU*2 

(NOT ALL RECIPROCALS SHOWN) 
1 1 0.5 0.1666666667 0.04166666667 0.0083 33 333 333 0.0 013 8888 888 9 
[2] Z+(*-CHISQ*2)x{CHISQ*2)±$*x\l[-UlO-\lNU*2 

2.89 

[2] z ^(*- C5J ^^ 2 ) x i^I^i22i$3x\ir-ni52iL?^i2 

17.9782608 

[ 2 ] Z«- ( * - CHISQZ2 ) x ( CHISQ *2)±<|>*x\ir- UIO -iLNU*2 

2.89 

I 2 ] Z«-( *iC'?J5Qt 2 ) x ( CHISQt2 )±<|>* x U I" -DI0- * Lfftf* 2 

"2.89 

[2] Z^(*-C;^ : Z;5^2 : 2)x(C5JS'5v2)l(|>^x\ir-nJ0-iL^£/^2 

0.05557621261 

0.9991636444 73 



ROMAN 



CONVERT INTEGER TO ROMAN NUMERALS 



S.ZNUK'. 



R+ROMAN N 



ROMAN NUMERALS MAY BE REQUIRED FOR CERTAIN TYPES OF PAGE 
OR PARAGRAPH NUMBERING. THEY ALSO ILLUSTRATE THAT THERE IS 
A DISTINCTION BETWEEN THE VALUE OF A NUMBER AND ITS REPRE- 
SENTATION. N IS AN INTEGER GREATER THAN ZERO. R IS A 
CHARACTER VECTOR REPRESENTING N AS A ROMAN NUMERAL. 



FUHaHQK : 

V R+ROMAN NiliUlO 
[1] QIO+O 
[2] I+O 1000T 1 ! ptf 
[3] R+O 5T10 10 10 lQTN+Itll 

[4] tf«-,GX i 4)o .<,$( 0f"i?-l 3o.x4=i?[l;]),[0]/?[0;]e4=i? 
[5] R+iltOlp'M') ,N/ ,<S)k 16p' xMxxDCMDLXCLVIXV* 



MAMELKS i 

ROMAN 7 
VII 

ROMAN 7.7 
LXXVII 

ROMAN 97 7 
CM LXXVII 

ROMAN 197 7 
MCMLXXVII 

ROMAN 10 000 
MMMMMMMMMM 
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ROUNDS SELECTIVE SYMMETRICAL ROUNDING 



SYNTAX: R+U ROUNDS A 



* TO ROUNDOFF NUMBERS TO ANY GIVEN UNITS 
o TO ROUND NEGATIVE NUMBERS AWAY FROM ZERO 
o RESULT WILL BE THE NEAREST MULTIPLE 
OF THE CORRESPONDING UNIT. 

ILLNQTION : 

V R<-U ROUNDS A 
[1] At/ IS A SCALAR OR CONFORMABLE STRUCTURE OF SPECIFIED UNITS 
[2] R+(xA)xUxlQ.5+\A*U 

V 



EXAMPLE : 

10 0.01 ROUNDS 5287 1234.006 
5290 1234.01 

AMLIS.IS : 

A 
3.6 145 150 151 1.027 

U 
1.5 3 7 7 0. 03 

U ROUNDS A 

[2] R+{xA)*UxL0.5+\A*U 

THE CORRESPONDING UNITS 
1.5 3 7 7 0.03 
[2] 2?«-(xi4)x[/xL0.5+|i4*[/ 

NORMALIZED 
2.4 48.33333333 "21.42857143 "21.57142857 34.23333333 
C2] R+(xA)xUxL0.5+[A*U 

ABSOLUTE VALUES 
2.4 48.33333333 21.42857143 21.57142857 34.23333333 
[2] i?^(xA)xt/xL0 : 5+|AT[/ 

HALF-ADJUSTMENT ADDED 
2.9 48.83333333 21.92857143 22.07142857 34.73333333 
[2] R*-(xA)xUxL0 1 5 + [A*U 

FLOOR 

2 48 21 22 34 

[2] R+(xA)xU*L0 1 5+[A*U 

NORMALIZATION REVERSED 

3 144 147 154 1.02 

[2] R+(xA)xUxl0.5+\A*U 

THE ORIGINAL SIGNS 
1 1 ~1 11 
[2] Rt(lAl*UxlO L 5+[A*U 

NEGATIVE NUMBERS RESTORED 
3 144 147 154 1.02 
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TO 



NUMERIC VECTORS IN EQUAL INCREMENTS C BY IN FROM ] 



SYNTAX: 



R+A TO B 

R+A TO B BY C 



R+N FROM A 

R+'N FROM A BY C 



R+A TO B IN M 



A : STARTING VALUE 

B: LAST VALUE (OR BOUNDARY VALUE) 

C: INCREMENT (POSITIVE OR NEGATIVE BUT NOT ZERO) 

M: NUMBER OF INTERVALS DESIRED (M * 0). 

NUMBER OF VALUES OBTAINED = M+l 

N: NUMBER OF VALUES DESIRED 

R: RESULTING NUMERIC VECTOR WITH EQUAL INCREMENTS 

°WHEN THE FUNCTIONS 'TO 1 AND 'FROM' ARE USED ALONE, THE INCREMENT 
IS UNDERSTOOD TO BE ONE. SEQUENCES OF ANY OF THE ABOVE FORMS 
ARE ALSO POSSIBLE, PROVIDED THAT THEY ARE SEPARATED BY COMMAS 
AS SHOWN IN THE EXAMPLES. 



FXAMPLES : 

5 6 7 8 9 10 ^ 5 W 10 

4.1 5.1 6.1 «~> 4.1 TO 7 

5 4 3 2 «--* 5 TO 2 

5 7 9 «--► 5 TO 10 BY 2 

5 «--► 5 TO 10 BY 6 

5 5.5 66.5 7 «--»• 5 TO 7 BY .5 



2 4 6 «~> TO 6 IN 3 

6 4 2 «--► 6 TO IN 3 

3 4 5 6 7 <--► 5 FROM 3 

15 12 9 6 «-+ 4 Fi?tfM 15 57 



i ro 5, 10 ro 20 w 2, 5 from 50, 40 to 30 by 5 

1 2 3 4 5 10 12 14 16 18 20 50 51 52 53 54 40 35 30 



FUNCTIONS : 

V Z+A TO B;D;R\X;UlO 

[i] uio+o 

[2] R<-ppZ+l,B 
[3] Z*-,Z 

[4] J<-| Z[2x/?>1] 
[5] ZKZClH-i* 
[6] +(3>i?)+Ll 
[7] B^+(Z)iI)xil+I 
[8] +L2 

C9] LI :S«-i4+(Zxx£)xil + L \D*X 

[10] £2 :Z«-B, (2+J?>l) + Z 
V 



V Z+B BY C 
[1] 'ZERO IS INVALID ARGUMENT ' HANG 0=1 iC 
[2] Z«-(l,pZ)pZ«-5,C 

V 

V Z«-5 Ttf M 
Cl] 'Z£7?£ JS INVALID ARGUMENT 'HANG = 1 +A/ 
[2] Z«-(l l 9 pZ)pZ+B,M 

V 

V Z«-ff Fi?£M 4;i?;Dl"0 
[1] DJO-t-O 
[2] i?«-ppZ-«-l,j4 

[3] Z+(Ztll+Zl2xR>llx\N) 9 (2+R>l)+Z+ 9 Z 
V 

#211: ^tf-TS J5 4/7 EXAMPLE OF LINKING APL FUNCTIONS TOGETHER. THE CORE 
FUNCTIONS, 'TO' AND 'FROM', DETERMINE WHETHER OR NOT THERE WAS A 
'BY' OR 'IN' CLAUSE FROM THE RANK OF THEIR RIGHT ARGUMENTS. 
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TRUNC 



TRUNCATE HIGHER AND LOWER ORDER DIGITS 



SYNTAX 



R+U TRUNC A 



o SELECT PARTICULAR DECIMAL DIGIT POSITIONS 

o EXPLICIT (INPUT) DECIMAL FRACTIONS WILL BE RETURNED 

CORRECTLY. LOW-ORDER DIGITS OF COMPUTED FRACTIONS MAY 

NOT BE EXACT IN DECIMAL REPRESENTATION. 



FUNCTION 



V R+U TRUNC A 
Cl] R+1Q\1\A*U 

[2] A IF U IS ANY POWER OF TEN, THEN THE CORRESPONDING DECIMAL 
[3] a POSITION OF A IS RETURNED. 

C4] a IF U IS A UNIT DIVISOR, A IS FIRST CONVERTED TO THE NEW UNIT, 
[5] a THEN THE NEW UNITS PLACE IS RETURNED. 



EXAMPLE : 

(10*\5)TRUNC 12 345+C]Jtf«-0 
5 4 3 2 1 

&KALZSIS : 

.1 1 10 TRUNC 100 t 7 
[1] R+10\l\A*U 

0.1 1 10 

[1] R+10\L\A*U 

142.8571428571428 14.28 571428 57142 9 1.428 571428 571428 

[1] R+10\LlA*U 

142.8571428571428 14.28 571428 57142 9 1.428 571428 571428 

Cl] R+1Q\1\_A*U 

142 14 1 

ci] #tl°iLidi? 

2 4 1 
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ZDIV ZERO TOLERANT DIVISION C CDIV ] 

SYNTAX- R+N ZDIV D 

o DOMAIN ERRORS ARE UNDESIRED IN COMMERCIAL MATRIX OPERATIONS 
WHERE ZEROS USUALLY INDICATE UNAVAILABLE INFORMATION. 

° N AND D ARE CONFORMABLE NUMERIC STRUCTURES OR SCALARS IN 
ANY COMBINATION. 

° ZERO WILL BE RETURNED INSTEAD OF THE DOMAIN ERROR. 

FRICTIONS : 

V R+N ZDIV D 

[1] ft RETURNS ZERO WHEN DIVISOR IS ZERO 

[2] n APL RETURNS UNITY WHEN N AND D ARE BOTH ZERO 

[3] R+(NxR)*(D*R)+~R<-(N=0)vD*0 

V VR+N CDIV D 

[1] A COMMERCIAL DIVISION: RETURNS ZERO IF D=0 
[2] R*-(N*R)±D + ~R<-D*0 
EXAMPLES : V 

A+2 2 ALL COMBINATIONS OF N AND D BEING ZERO 
B+3 3 
A ZDIV B 
0.6666666667 1 

+ NON-ZERO DIVIDED BY ZERO 

AMLYSIS : 

4 4 ZDIV 2 2 

[3] R+(NxR)+(DxR)+~R+(N=0)vD*0 

110 

[3] R+(NxR)*(DxR)+~R+(N=0)vD*0 

10 1 

[3] i?-Ktfxi?)*(Z?xi?)+~^-(tf=o)vZ?*0 

DIVISION MAY PROCEED FOR THESE CASES 
110 1 
[3] R+(NxR)*(DxR)+~R<-(N=0)vD*0 

BUT NOT THIS CASE 
10 
[3] i?-Ktfxi?)*(Cxi?)+~i?^(#=o)v£*0 

SOME GOOD DIVISORS 
2 2 

[3] iM#*iO*(5xi?2+~fl+(tff o)vz?*o 

"ALL GOOD DIVISORS 
2 2 10 
[3] R<r(NxR)*(D*R)+~R<-(N=0)vD*0 

ALL GOOD NUMERATORS 
4 

[3] RtL!l* s li(E*Rl±zRtLN=o)vD*o 

2 1 
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Section VI 



Utility & Miscellaneous Functions 



COMB 



ALL COMBINATIONS OF ELEMENTS [ DEBLANK UNIQ ] 



SYNTAX 



R+A COMB B 



JUXTAPOSES EACH UNIQUE ELEMENT OF A WITH EACH UNIQUE 
ELEMENT OF S, DISREGARDING BLANKS. 
A AND B CAN BE CHARACTER OR NUMERIC STRUCTURES. 
USES'. 1C FORM AT V DEBLANK 1UNIQ 



FUNCTIONS 



CLEAN UP 
LOCAL HERE. 



V R+A COMB B 
[1] a C FORMAT, DEBLANK, AND UNIQ 
[2] a GLOBALS A AND S, WHICH ARE 
[3] C FORMAT 
[4] DEBLANK 
[ 5 ] UNIQ 
[6] R+( ,^(( P B),pil)pi4),CDlO + 0.5],((pi4),pB)pB 

V 



EXAMPLES : 



A\ 
A2 
A3 
A4 
A5 
AS 
SI 
B1 
S3 
S4 
S5 
S6 
Cl 
C2 
C3 
C4 
C5 
C6 



AABCCOMB16 



V DEBLANK 
[1] A+(A*' ')/A+,A A B+(B*' *)/B+ t B 
V 



V UNIQ 
[1] A+DREP A A B+DREP B 
V 



12 3 CCWS 234 345 1.1 

1 234 

1 345 

1 1.1 

2 234 
2 345 

2 1.1 

3 234 
3 345 

3 1.1 
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CVEC BUILD COMPRESSION OR LOGICAL VECTOR 

SYNTAX: R+N CVEC LOC 

o BINARY VECTORS OF ARBITRARY LENGTH WITH ARBITRARY ZEROS 

AT NUMBERED POSITIONS, IN USER'S ORIGIN. 
o CAN GENERATE INPUT TO 1XVEC . 

FUNQ.TIQN : 

V R+N CVEC LOC 
[1] R+N pi 
[2] RlLOCl+0 

[3] ft RETURNS A COMPRESSION VECTOR THAT CAN SELECT ALL BUT LOC 
[4] fl LOC IS DESIRED ROW OF 1L0C (DI0«-O), OR SIMILAR NUMERIC VECTOR 
[5] Pi N IS ORIGINAL LENGTH OF AXIS TO BE COMPRESSED 

V 

EXAMPLES : 

17 CVEC 1 2 3 5 7 11 
00 10101110111111 

32 CVEC (0=4| i21)/i21 
11101110111011101110111111111111 
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DT 



DELETE TRAILING INSIGNIFICANT CHARACTERS OR VALUES 



SYNTAX : 



R+V DT A 



o INSIGNIFICANT CHARACTERS OR VALUES, AS DEFINED IN V, 

THAT APPEAR ON THE RIGHT SIDE OF AN ARRAY, WILL BE DROPPED 
o THE ORIGINAL RANK OF A WILL BE PRESERVED, 
o AN EMPTY ARRAY IS RETURNED IF NOTHING SIGNIFICANT REMAINS. 



FUNCTION: 



V R+V DT A 
[1] R<-U l*pA).[/,+/v\$~AeV)+A 

V 

EXAMPLES : 



1 
1 

MN* 
MNM 



DT 2 4p4+l 

TO DELETE TRAILING ZEROS 

i**DT 2 hp'MN**MNM*' 



TO DELETE TRAILING BLANKS 



ANALYSIS: 



' * ? ' DT » GOOD ? f 



[1] /?«-( 

GOOD ? 

[1] i?<-( 

* ? 

Cl] R<-{ 

1 

[1] *«•-( 

11 

[1] *«-( 



[1] i?+( 

Cl] i?<-( 

[1] i?+( 

7 

[1] J?«-( 

c i ] 5* c 

GOOD 



~l + t>A) ,T / ,+/v\$~A€V)+A 
"l + Pil),r/,+/v\<|>~il6 7)+i4 

"l+PiD.r/.+zvx^er)^ 
1 1 

i+p/i),r/,+/v\^~^€r)fi4 

1 1 

l + pi4) ,r/,+/v\$~il€7)+-i4 
"14-Pi4 ) , T/ , +/v\^e7)+4 

~i+Pii) ,r/ 1 +/v\<i>~4€7)+ii 
"iip4),r/,+/v\<i>~ii€7)+ii 

"i+p^),r/,+/v\<t)~^€F)+>i 



F0i? RANK>2 



PROTECTS SIGNIFICANT TRAILERS 
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E AS TEE COMPUTE THE DATE OF EASTER 

SYNTAX: Z+EASTER YEAR 

o COMPUTE THE DATE OF EASTER FOR ANY YEAR SINCE 3 3 AD 
o YEAR MAY BE A SINGLE YEAR OR VECTOR OF YEARS. 
IT MAY ALSO BE AN ARRAY OF SHAPE (N,2) WHERE THE 
SECOND COLUMN IS OR 1 FOR EACH YEAR STATING 
WHETHER THE OLD ( ) OR NEW (1) STYLE CALENDAR 
WAS IN EFFECT THEN. NORMALLY, THIS IS COMPUTED 
AUTOMATICALLY. 

IU.NCTION : 

V Z+EASTER YS;C;EPACT',G;N;X',Y 

[I] ^COMPUTE EASTER FOR YEAR Y, OPTIONAL STYLE S. 

[2] nYS MAY ALSO BE A VECTOR OF YEARS OR AN ARRAY OF YEARS AND STYLES. 

[3] JS«-(2 + (pYS),l DpYS 

[4] S'<-(Y>1922)v( J>1583)a( 75,17 52<Y+YSL ;UI0l ) C ;DJ0+1 ] 

[5] +0x\pZ+(33>L/Y)/ 'EASTER WASN"T CELEBRATED THAT EARLY.' 
[6] Z«-£x2-L0. 75x01+ LO.OlxJ 

[7] EPACT+3 0\ 2 0+(£xlO+L0.3 2xC-15)+(llxG«-l + 19| Y)+X 

[8] N<-i^-EPACT+Sx(EPACT=2^)v(EPACT = 25)aG> 11 

[9] N<-N+30*N<21 

[10] N+N+7-7\N+7\X+Ll.25xI 

[II] -+Ox\l*l + pZ+N 

[12] Z«-» EASTER ON ' ,( ( 6xx30 . 5-tfH f MARCH APRIL ' ) , ( Tl + 31 \~1+N ) , ' , ' ,TltJ 



EXAMPLES : 

EASTER 197 8 
EASTER ON MARCH 26, 197 8 

EASTER 18 65 
EASTER ON APRIL 16, 18 65 

EASTER 1 
EASTER WASN'T CELEBRATED THAT EARLY. 

ft 4 VECTOR INPUT PRODUCES A VECTOR OUTPUT OF THE 
fi DAY NUMBERS IN MARCH. 
EASTER 197 8 186 5 
26 47 

A WHEN OLD STYLE WAS KNOWN TO BE IN USE AFTER 1752, 
A OR NEW STYLE BEFORE THEN, YOU MUST GIVE THE STYLE 
A FOR EXAMPLE, RUSSIA BEFORE THE REVOLUTION: 
EASTER 1 2pl865 
EASTER ON APRIL 11, 1865 
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EXTEND EXTEND VECTOR WITH LAST VALUE 

SYNTAX: R+N EXTEND V 

o THE APL t WOULD EXTEND A VECTOR BY PADDING IT WITH 

ZEROS OR BLANKS. 
o EXTEND WILL FILL THE SPACE REMAINING ON THE RIGHT 

WITH THE RIGHTMOST VALUE. 
o THIS WILL HAPPEN ONLY IF N>pV . 
o EXTEND RETURNS A VECTOR OF LENGTH N, OR p7, 

WHICHEVER IS GREATER. 

FUNCT.LQN : 

V R+N EXTEND V 
[1] B+VA0[N-pV)p ltV 
V 

EX AMPLE S : 

10 EXTEND 1 
0001111111 

(30 EXTEND 'INDEX ITEM-') ,' 20' 
INDEX ITEM 2 

12 EXTEND 'THIS WILL NOT BE PADDED WITH-' 
THIS WILL NOT BE PADDED WITH- 

IRAL.YSIS : 

3 3 EXTEND' ITEM 4. ' 

Cl] R+VA0[N-pV)p~l + V 

ITEM H. 

[1] J?«-F,(ortf-ptOp~l + 7 

[1] R+VA0[N-pV)p~liV 

7 

[1] R+VA0[N-pV)(> 1 + 7 

26 

[1] R+V, (0[^-p7)p"l+F 

26 

[1] R ' ( - V » i^l^ZPZl^lit 7 

ITEM k 
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FILLS 



REPLACE VACANT ELEMENTS [ C FORMAT CONFORM STRUCT A 3 



S.YNTAX : 



R+A FILLS B 



TEE STRUCTURE A, WHICH MAY BE SCALAR, WILL APPEAR 

IN VACANT SPACE OF B . IN A NUMERIC STRUCTURE 

ZERO SIGNIFIES VACANCY. DISPARATE STRUCTURES WILL BE 

MADE TO CONFORM. UNLESS OFFSET, THE FIRST ELEMENT OF 

A WILL MAP INTO THE FIRST ELEMENT OF B. 

IF ONE, BUT NOT BOTH OF THE OPERANDS, IS NUMERIC, 

IT WILL BE CONVERTED TO CHARACTER FORM. 

USES: VCFORMAT V CONFORM 



FUNCTIONS 



V R+A FILLS B 
Cl] C FORMAT 
C 2 ] CONFORM 
[3] R+(pB)p(B = l + 0pB)eB,iniO-Q.SU 

V 



EXAMPLES : 

EX 
X X 
X X 

X 

X X 

X X 



QUADX 



D D 
D D 

D 
D D 

D D 



NULLX 



V CONFORM ; J ;K;R 
[1] R+(J+ppA)[K+ppB 
[2] ->0 IF 0=JxZ 

[3] A+R STRUCT A A B+R STRUCT B 

[4] A+R+A A B+(R+(pA)[pB)+B 
V 

V X+D STRUCT A 

[l]fl D IS DESIRED RANK (DIMENSIONS) 

[2] X+((-D)\(Dp±),pA)pA 
V 

V Rt-A A B 

Cl]n THE SEPARATOR. A AND B MUST RETURN VALUES 

C 2 ] R+A 
V 

V C FORM AT 

[l]fl ASSUMES A AND B HAVE BEEN LOCALIZED 

[2] ±'A+vA A B+JB' IF (CHARACTER A)*CHARACTER B 
V 



(' ',' ' ,NULLX)FILLS(' ' ,QUADX)FILLS EX 
XU° XU° 
XUXQo 

xn° 
xn° xn° 

ANALYSIS : 

CFORMAT WILL FORCE BOTH A AND B INTO CHARACTER FORM IF ONLY ONE IS SO 
CONFORM WILL PAD THE SMALLER ARRAY TO THE SHAPE OF THE LARGER, 

UNLESS EITHER ONE IS SCALAR. 
STRUCT REDEFINES THE RANK OF ITS OPERAND. 
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LOC 



LOCATE STRUCTURED DATA 



SYNTAX 



I+P LOC A 



o RESULT IS A MATRIX OF THE STARTING LOCATIONS UIO+0 
IF THE ENTIRE STRUCTURE WAS FOUND AT LEAST ONCE. 
P IS THE SEARCH ARGUMENT. (SEE VONESIN) 

o USES'. VA 



FUNCTION: 



V I+P LOC A;UI0 
[1] J>(p4)T(A/( ip,P)<l>( ,P)° . = t A)/\*/pA A UIO+0 

V 
EXAMPLE : 

'TOP SECRET'LOC'STOP SECRETARY' 



ANALYSIS : 

[1] J>(piOT(A/ 

12 3 4 5 6 7 
[1] 2Mp4)T(A/ 



[1] J«-( P iOT(A/ 



Cl] 2>( P j4)t(a/ 

12 3 4 5 6 

[1] I«-( P 4)t(a/ 

5 6 

[1] I«-( P i4)T(A/ 

10 

10 

[1] J«-( P 4)t(a/ 

1 

[1] I«-( P 4)t(a/ 

10 

10 

[1] I«-(p;4)T(A/ 



Cl] I^-(p_4)T(A/ 

7 

[l] £ti£d2li^ 

4 



5 6 LOC \1 

ip ,P)<J>( ,P)° . = ,^)/ix/ p A A DJO^O 

ip,p)<!>( ,p)o • = »^)/^ x /p4_a_DJO^-o 

ip,P)(t>( ,P)o. = ,^)/ix/pA_A DI0+O 

ip,p)4>( .p) o . = »4)/ix/M_a_DI0«;O 

ip,P)<))( i P)o. = s A)/ix/p^ A DIO<-0 
ip,P)<|>( 1 P)o.= 1 A)/ix/p i 4 A UIO+0 

1P 1 P)4>( ,P)° . = ,il)/ix/pil A UIO+0 
\p 9 P)<b(,P)o . = ,A)/\x/pA A DJO^O 



"Iff CLEAR WS ,010+1 
LOCALLY, UIO+O 



ip,P)<t>( ,P)°. = ,j4)/i*/pi4 A DIO+O 

i P ,p)(j)(,p)o. = 9 A)/ix/p^ a nio+o 
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LOGICAL MISCELLANEOUS [ INTEGER FLOATING EMPTY ] 



SYNTAX: T+LOGICAL A 



o RETURN 1 IF THE STRUCTURE SATISFIES CONDITION, 
OTHERWISE, 0. 



IU.NCZIQNS : 

V ILLOGICAL A 
[1] T+*/( 9 A)el 

V 

V T+INTEGER A 

[1] -^(CHARACTER A)/T+0 

[2] !T-*-0A.=l | ,4 
V 

V T+FLOATING A 

Pi DEF'N: FLOATING = l t AS USED HERE, MEANS AT LEAST ONE 
n MEMBER OF THE ARGUMENT IS NOT AN INTEGER. 
[1] T+(~INTEGER A)a{~LOGICAL A) a-CHARACTER A 
V 

V T+EMPTY A 
[1] T+0 = p 9 A 

V 



RIAMPLES : 

LOGICAL i 4 
LOGICAL \UlO+± 
EMPTY i 




1 

1 

INTEGER i 1 
1 (Otf££ Atf£ Z£i?££ Ai?tf INTEGERS) 

FLOATING il 


1 


1 



FLOATING 0.1 

CHARACTER 1 
CHARACTER ' 1' 
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NUMBLANKCOLS COUNTS BLANK COLUMNS AT SIDES OF STRUCTURE 



SYNTAX: 



Z<-NUMBLANKCOLS A 



o RETURNS A TWO-ELEMENT VECTOR REPRESENTING COLUMNS OF 

SUCCESSIVE BLANKS ON THE LEFT AND RIGHT SIDE OF STRUCTURE 



FUNCTION 



V Z+NUMBLANKCOLS A 

[1] i!«-A/« ^f MATRIX A 

[2] Z<-(pA) | (-DI0) + UiO) , (<M)iO 

V 

EXAMPLES. : 

NUMBLANKCOLS 3 4p ' » 







1 



NUMBLANKCOLS 



,3 4p »£ 



NUMBLANKCOLS 3 4p ' Z ' 



2 1 

ANALYSIS: NUMBLANKCOLS 2 5p' 4B • 

[1] i4«-A/» '=JMATRIX A 



GUARANTEES CHARACTER MATRIX 



AB 
AB 
[1] j4-*-a/ » '^MATRIX A 



10 11 

10 11 

[2] Z«-( P ii) 

110 1 

[2] Z^(p4) 



[2] Z«-(p4) 



[2] Z-Kp-A) 

2 3 

[2] Z«-( P i4) 



[2] Z+(pA) 

1 2 

[2] Z«-( P i4) 



[2] 2^-(p^2 

1 2 



(-niO) + (A\0) > (<pA)\0 

(-□J0) + UiO) »($42i° 

(-DJ0) + UiO),(<J>j4)iO 
(-Q J ^) + £4iO) >1 (<J>4)iO 
(-DJO) + Ui0),(<]>i!)i0 

(-DJ0) + UiO) , (<M)iO 

(-□-Z"0) + (Aio) ,(^)i0 



FROM THE RIGHT 



ORIGIN INDEPENDENT 



ZEROS IF ALL BLANK 
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ONESIN 



LOCATE ONES IN NUMERIC STRUCTURE 



SYNTAX 



R+ONESIN A 



AN ARRAY OF ONES AND ZEROS MAY HAVE BEEN THE RESULT OF A 
TEST OF ANOTHER ARRAY. THIS FUNCTION WILL CONVERT THE ONES 
TO THEIR OWN LOCATIONS (DI0«-O) BY COLUMNS, THAT CAN READILY 
BE USED TO GENERATE SUBSCRIPTS THAT RELATE TO THE SOURCE. 



FUNCTION 





V R+ONESIN A;UI0 


Cl] 


V 


pA ) TR/ i pi?-*- , 1 =A + UIO+-0 


EXAMPLE : 






A+2 


3 4pi5 




A 







1 2 


3 


4 


1 


2 


3 


4 


1 


2 


3 4 





1 


2 3 


4 





1 2 


3 




ONESIN A 








1 1 





1 2 


1 2 


1 


2 3 


1 
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THRU 



GENERATE INDICES OR OTHER EQUAL INCREMENTS BETWEEN LIMITS 



S.IU.T.AX : 



R+F THRU TB 



o TO PRODUCE NUMERIC VECTORS WITH INTEGRAL OR FRACTIONAL 
INCREMENTS OR DECREMENTS 



FUNCTION: 



V R+F THRU TBiUlO;B 
[1] 7?^F + (xi?)xBxil + L \R+(TBlOl-F)*B+\TB[.ll+UIO+0 

[2] n GENERATES EQUAL INTERVALS BETWEEN LIMITS F (A SCALAR) AND 1+TB 
[4] n 1\TB++THE DESIRED INTERVAL , E. G . , 1 ,ol , . 125 , 360 , ETC . 

V 
EXAMPLE • 

6 THRU 11 2 
6 8 10 



ANALYSIS: 4 7 THRU 43 0.5 

[1] i?«-F+(xi?)x£xii + L \R+(TBl0l-F)*B+ 



0.5 

Cl] R+F+{xR)xB*\l+L \R+(TBL0l-F)*B+ 

47 

[1] i?«-F+(xJ?.)xBxil + L \R+{TBlO]-F)*B+ 



[1] i?^F+(xi?)xFx l i + L \R<-(TBlOl-F)iB* 



8 
[1] R*-F + (xR)xB*\l + l \R+(TBL0l-F)*B* 



8 

[1] i?^F+(xi?)x5xil + L \R+{TBtO]-F)*B+ 



8 

[1] i?^F+(xi?)xSx l l+Lli?^-(2 7 B[0]-F)T5^ 



[1] R+F+{xR)xB*\l+L \R+(TBl0l-F)*B+ 



012345678 

[1] i?+F+(xi?)x£x i l + L \R+{TBl0l-F)*B' 



0.5 1 1.5 2 2.5 3 3.5 4 

[13 R+-F+(xR)xB*\l+L \R+(TB10']-F)*B+ 

'SIGN APPLIED 
~1 
[1] R+F+{xR)xBx\l+l \R+( k TBl0l-F)*B+ 



0,5 1 1.5 "2 "2.5 "3 "3.5 4 

Cl] ^tltilVl^lil^^-^L^^^l'Vi 8 ! 

47 46.5 46 45.5 45 44 . 5 44 43.5 43 



TBLll+UlO^O 
TBI 11 +DI0+-O 
TBlll+UIO+0 
TBlll+UlO+0 
TBlll+UlO+0 



'SIGN CAPTURED 



TBtll+niO+0 



'FOR FRACTIONS 



TBlll+niO+0 



'FOR END -POINT 



TBlll+UIO+O 
TBllH+Uiq+0 
TBlll+niO+0 

tbiii+qio+o 

TBlll+QlO+0 



SCALE 
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TLU 



TABLE LOOK-UP OF STRUCTURED ARGUMENTS [ IS 3 



SYNTAX: 



Z+TABLE TLU ARGS 



RETURNS A MATRIX OF SUBSTITUTIONS CORRESPONDING TO A 

MATRIX OF ARGUMENTS. THE SUBSTITUTIONS ARE FOUND IN A 

TABLE WHOSE INITIAL COLUMNS WILL BE MATCHED AGAINST 

ANY NUMBER OF ARGUMENTS, IN ANY ORDER. 

THE ARGUMENTS ARE USUALLY PRESENTED AS A MATRIX, BUT A 

SINGLE ARGUMENT MAY BE VECTOR OR SCALAR. 

UNDISCOVERED FUNCTIONS WILL BE RETURNED AS BLANKS (OR ZEROS) 

THE UNMATCHED ARGUMENTS WILL BE REPORTED AT THE TERMINAL. 

IF THE ARGUMENT PORTION OF THE TABLE IS NOT UNIQUE, 

THE FUNCTION OF THE FIRST OCCURRENCE OF THE ARGUMENT 

IN THE TABLE WILL BE RETURNED. 

USES: 1HANG, WHICH PRESERVES THE STACK FOR ANALYSIS. 

VFIRSTM TO REMOVE DUPLICATES FROM TABLE. 

VIS TO CHECK WHETHER TABLE AND ARGUMENT ARE 
EITHER BOTH NUMERIC, OR BOTH CHARACTER. 

V MATRIX VIF ION 



FUNCTIONS : 



[13 
[23 
[33 
[4] 
[5] 
[6] 
[73 



Z+TABLE TLU ARGS ;W ;R;L 

'ARGS AND TABLE DISAGREE 1 HANG-TABLE IS ARGS+MATRIX ARGS 

TABLE+iFIRSTM TABLEl;\ l^pARGSl) {TABLE 

2>v /R+ARGSa .^TABLEl ;\W+ 1+pARGSl 

Z+L\(0,W) + TABLEI( ,R ) / , ( pi? )p i l + pi?;3 

+0 IFs/L 

'NOT FOUND: 1 ON (~L)/ ARGS 
t t 



EXAMPLES : 

ARGS 
£03 
D01 
D^A 
D02 
D01 
D03 
D^A 
£02 

TABLE TLU ARGS 
MKTG SERV 
EDUCATION 
MARKETING 
SYSTEMS SUPP 
EDUCATION 
MKTG SERV 
MARKETING 
SYSTEMS SUPP 



V 


R+A 


IS 


B 


[13 t 


=» TRUE, 


IF BOTH NUMERIC, 


[23 f 


=i OR 


IF 


BOTH CHARACTER. 


[33 

V 


i?«-(C 


)*0\0p4 ) = 0*0\0pB 


TABLE 






SARGS 


D01EDUCATION 






£03 


D02SY STEMS SUPP 






£01 


D03MKTG SERV 






£4A 


D^AMARKETING 






XXX 



£02 
£01 
£03 

TABLE TLU SARGS 
NOT FOUND: 
XXX 

MKTG SERV 
EDUCATION 
MARKETING 

SYSTEMS SUPP 
EDUCATION 
MKTG SERV 
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XVEC EXPAND LOGICAL VECTOR 

SYNTAX: R+W XVEC B 

o A BINARY INDICATION OF A COMPRESSED DATA STRUCTURE WILL BE 
TRANSFORMED INTO AN EXPANSION VECTOR THAT CAN INJECT 
W SPACES (OR W ZEROS IN A NUMERIC STRUCTURE) AHEAD OF THE 
FIELD OR GROUP TO BE SHIFTED. 

o SINCE THE EXPANSION CAN BE MADE ALONG ANY AXIS, THE LENGTH 
OF THE BINARY VECTOR, B, MUST EQUAL THE LENGTH OF THE AXIS 
FUNCTION : 

V R+W XVEC B 
Cl] i?«-( i HR+~QlO)eR+-(\pB)++\WxB+~B 

[2] A B IS A LOGICAL VECTOR, WITH ZEROS INDICATING THE BEGINNING 
[3] pi OF EACH FIELD, BEFORE WHICH WpO WILL BE INSERTED. 
U] fl THE ORIGINAL ZEROS WILL BE CONVERTED TO ONES. 

V 
EXAMPLE: 





A+U+-' 


'SHAPE 'TOM DICK HARRY' 


TOM 






DICK 






HARRY 








B+-U+1 


XVEC 10 1 


10 1 


1 
B\A 




TOM 






DICK 






HARRY 






ANALYSIS, : 


3 XVEC 10 11 



[1] R+( i~l+i?+~Dl0)ei?«-( ip£)++\tfxB«-~s 

FLIP 
10 
Cl] i?«-( i l+R+~niO)eR+( \pB)+ + \WxB+~B 

3 

Cl] i?«-(i l+i?+~Dl0)€#+(ipB)+ + WxB-<-~B 

PLUS SCAN 
3 3 3 
Cl] i?«-(i 1 + R+ ~ttIO)€R+^±pBl + + \WxB+~B 

4 5 6 

Cl] R<-{ i~l+tf+~Dl0 )£#«-( \pB)++\W*B+~B 

15 6 7 

Cl] i?^-( i_ll^+~Q^2 )ci?-«-( \pB)++\W*B+~B 

12 3 4 5 6 

Cl] R+i i_l+R±Z^I9. ) iK+UpB)+ + \WxB+~B 

MEMBERSHIP 
10 111 
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KWIC INDEX 



Suppose you require a technique to solve a particular problem. You suspect that within the 
handbook there is a function which can help, but you do not know its name. How do you 
locate it? 

Scan the keywords for a subject reference. When you find it, you will see (within the same 
abstract) the name of the APL function you need. 

Conversely, you may determine the purpose of a function if you know only its name. Use 
the function name as a keyword to yield the appropriate abstract. 



VADD MULTIPRECISION INTEGER ADDITION 

ADD COLUMNS TO A MATRIX VECTOR OR SCALAR 1ADDC0LS 

ADD ROWS TO A MATRIX VECTOR OR SCALAR VADDROWS 

1ADDC0LS ADD COLUMNS TO A MATRIX VECTOR OR SCALAR 

ADDITION VADD MULTIPRECISION INTEGER 

ADDITION 1FADD MULTIPRECISION FLOATING POINT 

1ADDR0WS ADD ROWS TO A MATRIX VECTOR OR SCALAR 

ADJACENT ELEMENTS C UN SCAN 1 VDIFF DIFFERENCES BETWEEN 

VADJUSTDOWN EXTEND THE f | ' IN REPORT FORMATTING C ROWINDICES ] 

VADJUSTUP EXTENDS ' | • IN REPORT FORMATTING 

1ALPREC ALTER PRECISION OF A SCALAR OR MULTIPRECISION NUMBER 

ALT ] VTIME RUNNING TIME AND NEW SPACE FOR AN APL STATEMENT [ 

ALTER PRECISION OF A SCALAR OR MULTIPRECISION NUMBER 1ALPREC 

V AMORTIZE MORTGAGE CALCULATION BY MONTHS 



APL STATEMENT I ALT ] 1TIME 

APPEARANCE IN MATRIX [ FIRSTV ] 

ARBITRARY PRECISION 

ARBITRARY SCALAR UNIT1DR0UNDS 

ARGUMENTS C IS 1 1TLU 

ARRAY VREPL 

ARRAY C DLB RJUST DL 1 

ARRAY TO NUMERIC PATTERN 

ARRAY [ MATRIX CHARACTER ] 

ARRAYS S/ CITED 

ARRAYS WITH BLANKS OR ZEROS 

ASCENDING ROW INDICES [ AV NFORM LJNFORM ] 1GRADEUP 

ASTRONOMERS [ MOONPHASE 1 1DAYN0 



ASTRONOMERS' DAY NUMBER 

AT SIDES OF STRUCTURE 

AV NFORM LJNFORM J 1GRADEUP 



RUNNING TIME AND NEW SPACE FOR AN 

1FIRSTM SELECT FIRST OR ONLY 

VPJ COMPUTE PI TO 

DISTRIBUTIVE ROUNDING OF A VECTOR TO 

TABLE LOOK-UP OF STRUCTURED 

REPLACE ALL OCCURRENCES OF ELEMENT IN 

VLJUST LEFT JUSTIFY ANY 

VCHAR BUILD CHARACTER 

VFRAME FRAME AN 

EXTRACT CITED STRINGS FROM CHARACTER 

IP AD PADS 

GENERATE 

DAY NUMBER FOR 

1DATE COMPUTE NORMAL DATE FROM 

VNUMBLANKCOLS COUNTS BLANK COLUMNS 

GENERATE ASCENDING ROW INDICES [ 



V BAR GRAPH 

BAR GRAPHS 

BASE [ DIGITS CONFRAC 1 

BELONG TO A 
VBESIDE 
VBLANK 



CO 



PLOT HORIZONTAL INTEGER BARGRAPHS 

1BARGRAPH PLOT HORIZONTAL INTEGER 

1C0NV CONVERT DECIMAL VALUES TO ANY 

V INDEX COLUMN INDEX IN MATRIX B WHOSE MEMBERS ALL 

PRESENTS TWO STRUCTURES SIDE BY SIDE IN REPORT FORMAT 
DELETE SPECIFIC STRING FROM STRUCTURE [ LIM ] 
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SCALE 3 VFLOAT CONVERT TO MULTIPRECISION FLOATING POINT C 

SEDIT 3 VEDIT EDIT LATENT EXPRESSION OR CHARACTER STRUCTURE C 

SELECT FIRST OR ONLY APPEARANCE IN MATRIX C FIRSTV 3 1FIRSTM 
SELECT NTH WORD IN CHARACTER STRUCTURE [ DTMB 3 1W0RD 

SELECT UNIQUE ELEMENTS FROM ANY STRUCTURE 1DREP 

SELECTIVE SYMMETRICAL ROUNDING 1 ROUNDS 

SELECTIVELY WARS DISPLAY CHARACTERISTICS OR CONTENTS OF VARS 

SESSION AND WORKSPACE STATUS C NOW 3 1STATUS CURRENT 

SETTINGS TO EXISTING ONES C COLNO 3 1TABS COMPARE REQUIRED TAB 

V SHAPE SHAPE MATRIX FROM CHARACTER STRING 

SHAPE MATRIX FROM CHARACTER STRING V SHAPE 

SIDE BY SIDE IN REPORT FORMAT V BESIDE PRESENTS TWO STRUCTURES 

SIDE IN REPORT FORMAT V BESIDE PRESENTS TWO STRUCTURES SIDE BY 

SIDES OF STRUCTURE VNUMBLANKCOLS COUNTS BLANK COLUMNS AT 

SORTDA KFORM 3 1FREQ FREQUENCY DISTRIBUTION OF ELEMENTS [ 

SPACE FOR AN APL STATEMENT [ ALT 3 1TIME RUNNING TIME AND NEW 

SPECIFIC STRING FROM STRUCTURE C LIU 3 1BLANK DELETE 

SPECIFIED ROWS OF CHARACTER MATRIX [ U SCORE 3 VULINE UNDERLINE 

1SQRT MULTIPRECISION INTEGER SQUARE ROOT 

SQUARE PROBABILITY FUNCTION VQPROBF COMPUTE CHI 

SQUARE ROOT 1SQRT MULTIPRECISION INTEGER 

SQUARE ROOT 1FSQRT MULTIPRECISION FLOATING POINT 

STANDARD FORM 1LISTFN LISTS A FUNCTION IN 

STANDARDIZE STRUCTURE FOR REPORT FORMATTING [ IF ] ^PREPARE 
STATEMENT C ALT 3 1TIME RUNNING TIME AND NEW SPACE FOR AN APL 

V STATUS CURRENT SESSION AND WORKSPACE STATUS C NOW 3 

STATUS [ NOW 3 ^STATUS CURRENT SESSION AND WORKSPACE 

STRING V SHAPE SHAPE MATRIX FROM CHARACTER 

STRING V FORMAT CONVERT MULTIPRECISION NUMBER TO CHARACTER 

STRING FROM STRUCTURE [ LIU 3 1BLANK DELETE SPECIFIC 

STRINGS FROM CHARACTER ARRAYS V CITED EXTRACT CITED 

STRUCT A 3 1FILLS REPLACE VACANT ELEMENTS [ CFORMAT CONFORM 

STRUCTURE V ONES IN LOCATE ONES IN NUMERIC 

STRUCTURE VDREP SELECT UNIQUE ELEMENTS FROM ANY 

STRUCTURE VNUMBLANKCOLS COUNTS BLANK COLUMNS AT SIDES OF 

STRUCTURE FOR REPORT FORMATTING [ IF 3 V PREPARE STANDARDIZE 

STRUCTURE C DLTMB 3 V ERECT ERECT WORD MATRIX FROM CHARACTER 

o STRUCTURE C DTMB 3 1W0RD SELECT NTH WORD IN CHARACTER 
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STRUCTURE [ LIM ] VBLANK DELETE SPECIFIC STRING FROM 

STRUCTURE I SEDIT 1 VEDIT EDIT LATENT EXPRESSION OR CHARACTER 

STRUCTURED ARGUMENTS C IS 1 1TLU TABLE LOOK-UP OF 

STRUCTURED DATA 1L0C LOCATE 

STRUCTURES VON CONFORM AND CATENATE ANY 

STRUCTURES BY ROWS [ COLFORM CHARACTER VERT ] VRCAT CATENATE 

STRUCTURES IN CONTROLLED FORMAT I HANG ] ^TABULATE NUMERIC 

STRUCTURES SIDE BY SIDE IN REPORT FORMAT V BESIDE PRESENTS TWO 

STRUCTURES I CENTER ] VCENTERON CENTERS AND CATENATES TWO 

VSUB MULTIPRECISION INTEGER SUBTRACTION 

SUBTRACTION VSUB MULTIPRECISION INTEGER 

SUBTRACTION IF SUB MULTIPRECISION FLOATING POINT 

SUFFICIENT ENCODING POSITIONS VENC GENERATE 

SUMMARIZE COEFFICIENTS OF COMMON CODES ^COLLECT COLLECT AND 

SYMMETRICAL ROUNDING V ROUNDS SELECTIVE 

SYSTEM INDEPENDENT TERMINAL CONTROL CHARACTERS 1TCC 

TAB SETTINGS TO EXISTING ONES [ COLNO I VTABS COMPARE REQUIRED 

TABLE LOOK-UP OF STRUCTURED ARGUMENTS I IS 1 VTLU 

SITABS COMPARE REQUIRED TAB SETTINGS TO EXISTING ONES [ COLNO 1 

V TABULATE NUMERIC STRUCTURES IN CONTROLLED FORMAT [ HANG ] 
VTCC SYSTEM INDEPENDENT TERMINAL CONTROL CHARACTERS 

TERMINAL CONTROL CHARACTERS VTCC SYSTEM INDEPENDENT 

TERMINAL ENTRY OR DEFAULT V PROMPT PROMPT AND CHECK 

THE DATE OF EASTER VEASTER COMPUTE 

THE ' | ' IN REPORT FORMATTING [ ROWINDICES ] VADJUSTDOWN EXTEND 
VTHRU GENERATE INDICES OR OTHER EQUAL INCREMENTS BETWEEN LIMITS 

VTIME RUNNING TIME AND NEW SPACE FOR AN APL STATEMENT [ ALT ] 

TIME AND NEW SPACE FOR AN APL STATEMENT I ALT 1 VTIME RUNNING 

VTLU TABLE LOOK-UP OF STRUCTURED ARGUMENTS [ IS ] 

1T0 NUMERIC VECTORS IN EQUAL INCREMENTS [ BY IN FROM ] 

TO A V INDEX COLUMN INDEX IN MATRIX B WHOSE MEMBERS ALL BELONG 

TO A MATRIX VECTOR OR SCALAR 1ADDC0LS ADD COLUMNS 

TO A MATRIX VECTOR OR SCALAR VADDROWS ADD ROWS 

TO ANY BASE [ DIGITS CONFRAC 1 VCONV CONVERT DECIMAL VAL'UES 

TO ARBITRARY PRECISION VPI COMPUTE PI 

TO ARBITRARY SCALAR UNITVDROUNDS DISTRIBUTIVE ROUNDING OF A VECTOR 

TO CHARACTER STRING V 'FORMAT CONVERT MULTIPRECISION NUMBER 

TO DECIMAL VDEC CONVERT 

TO EXISTING ONES [ COLNO ] VTABS COMPARE REQUIRED TAB SETTINGS 

TO MULTIPRECISION FLOATING POINT [ SCALE 1 1FL0AT CONVERT 

TO MULTIPRECISION INTEGER VFIX CONVERT 



TO NUMERIC PATTERN 1CHAR BUILD CHARACTER ARRAY 

TO ROMAN NUMERALS VROMAN CONVERT INTEGER 

TOLERANT DIVISION C CD IV 3 1ZDIV ZERO 

TRAILING INSIGNIFICANT CHARACTERS OR VALUES VDT DELETE 

1TRUNC TRUNCATE HIGHER AND LOWER ORDER DIGITS 

TRUNCATE HIGHER AND LOWER ORDER DIGITS VTRUNC 

1ULINE UNDERLINE SPECIFIED ROWS OF CHARACTER MATRIX C U SCORE 3 

UNDERLINE SPECIFIED ROWS OF CHARACTER MATRIX [ USCORE 3 VULINE 
UNIQ 3 1C0MB ALL COMBINATIONS OF ELEMENTS C DEBLANK 

UNIQUE ELEMENTS FROM ANY STRUCTURE VDREP SELECT 

UNIT1DR0UNDS DISTRIBUTIVE ROUNDING OF A VECTOR TO ARBITRARY SCALAR 

UN SCAN 3 ID IFF DIFFERENCES BETWEEN ADJACENT ELEMENTS [ 

USCORE 3 VULINE UNDERLINE SPECIFIED ROWS OF CHARACTER MATRIX [ 

VACANT ELEMENTS C CFORMAT CONFORM STRUCT A ] IF ILLS REPLACE 

VALUE 1 EXTEND EXTEND VECTOR WITH LAST 

VALUES IDT DELETE TRAILING INSIGNIFICANT CHARACTERS OR 

VALUES TO ANY BASE C DIGITS CONFRAC 3 1C0NV CONVERT DECIMAL 

VARIABLE FORMAT BY ROW OF A MATRIX [ ESCAPE ESC APEX 3 1VF0RM 

WARS DISPLAY CHARACTERISTICS OR CONTENTS OF VARS SELECTIVELY 

VARS SELECTIVELY WARS DISPLAY CHARACTERISTICS OR CONTENTS OF 

VECTOR VCVEC BUILD COMPRESSION OR LOGICAL 

VECTOR 1XVEC EXPAND LOGICAL 

VECTOR OR SCALAR 1ADDC0LS ADD COLUMNS TO A MATRIX 

VECTOR OR SCALAR 1ADDR0WS ADD ROWS TO A MATRIX 

VECTOR TO ARBITRARY SCALAR UNIT1DR0UNDS DISTRIBUTIVE ROUNDING OF A 

VECTOR WITH LAST VALUE 1 EXTEND EXTEND 

VECTORS IN EQUAL INCREMENTS C BY IN FROM 3 VTO NUMERIC 

VERT 3 1RCAT CATENATE STRUCTURES BY ROWS C COLFORM CHARACTER 

VERTAB CFORMAT CMATRIX ROWFORM 3 1CCAT CATENATE BY COLUMNS [ 

VVFORM VARIABLE FORMAT BY ROW OF A MATRIX [ ESCAPE ESC APEX 3 

V2M 3 1M2V COMPRESS CHARACTER MATRIX EXPAND RESULT I 

WHOSE MEMBERS ALL BELONG TO A 1INDEX COLUMN INDEX IN MATRIX B 

1 WIDTH MEASURE FORMATTED MATRIX 

WITH BLANKS OR ZEROS IP AD PADS ARRAYS 

WITH LAST VALUE V 'EXTEND EXTEND VECTOR 

VWORD SELECT NTH WORD IN CHARACTER STRUCTURE C DTMB 3 

WORD IN CHARACTER STRUCTURE C DTMB 3 VWORD SELECT NTH 

WORD MATRIX FROM CHARACTER STRUCTURE I DLTMB 3 V ERECT ERECT 

WORKSPACE STATUS L NOW 3 V STATUS CURRENT SESSION AND 

1XVEC EXPAND LOGICAL VECTOR 

1ZDIV ZERO TOLERANT DIVISION [ CDIV 3 

ZERO TOLERANT DIVISION [ CDIV 3 1ZDIV 

o ZEROS VPAD PADS ARRAYS WITH BLANKS OR 

A 3 VFILLS REPLACE VACANT ELEMENTS [ CFORMAT CONFORM STRUCT 



Primary Function N ames vs. Abstract Sorted by Abstract 



ADDCOLS 

ADDROWS 

COMB 

ALPREC 

CHAR 

CVEC 

CCAT 

RCAT 

OUTPUT 

CENTERON 

FRAMETEST 

COLLECT 

INDEX 

TABS 

M2V 

QPROBF 

DATE 

PI 

EASTER 

ON 

CONV 

ROMAN 

FORMAT 

DEC 

FIX 

FLOAT 

NUMBLANKCOLS 

STATUS 

DAYS 

DAYNO 

BLANK 

DT 

DIFF 

VARS 

DROUNDS 

EDIT 

MED IT 

CAN 

ERECT 

XVEC 

ADJUSTDOWN 

EXTEND 

ADJUSTUP 

CITED 

FRAME 

FREQ 

GRADEUP 

THRU 

ENC 

LJUST 

LISTFN 

ONESIN 

LOC 

RIOTA 

WIDTH 



ADD COLUMNS TO A MATRIX VECTOR OR SCALAR 

ADD ROWS TO A MATRIX VECTOR OR SCALAR 

ALL COMBINATIONS OF ELEMENTS [ DEBLANK UNIQ ] 

ALTER PRECISION OF A SCALAR OR MULTIPRECISION NUMBER 

BUILD CHARACTER ARRAY TO NUMERIC PATTERN 

BUILD COMPRESSION OR LOGICAL VECTOR 

CATENATE BY COLUMNS C VERTAB CFORMAT CMATRIX ROWFORM 1 

CATENATE STRUCTURES BY ROWS [ COLFORM CHARACTER VERT 1 

CENTER HEADINGS OVER FORMATTED COLUMNS [ CNTR DMZ NEXTA 1 

CENTERS AND CATENATES TWO STRUCTURES [ CENTER 1 

CHECKS A MATRIX FOR FRAMING 

COLLECT AND SUMMARIZE COEFFICIENTS OF COMMON CODES 

COLUMN INDEX IN MATRIX B WHOSE MEMBERS ALL BELONG TO A 

COMPARE REQUIRED TAB SETTINGS TO EXISTING ONES C COLNO 1 

COMPRESS CHARACTER MATRIX EXPAND RESULT [ V2M "1 

COMPUTE CHI SQUARE PROBABILITY FUNCTION 

COMPUTE NORMAL DATE FROM ASTRONOMERS 1 DAY NUMBER 

COMPUTE PI TO ARBITRARY PRECISION 

COMPUTE THE DATE OF EASTER 

CONFORM AND CATENATE ANY STRUCTURES 

CONVERT DECIMAL VALUES TO ANY BASE [ DIGITS CONFRAC 1 

CONVERT INTEGER TO ROMAN NUMERALS 

CONVERT MULTIPRECISION NUMBER TO CHARACTER STRING 

CONVERT TO DECIMAL 

CONVERT TO MULTIPRECISION INTEGER 

CONVERT TO MULTIPRECISION FLOATING POINT [ SCALE 1 

COUNTS BLANK COLUMNS AT SIDES OF STRUCTURE 

CURRENT SESSION AND WORKSPACE STATUS l NOW 1 

DATE CALCULATIONS [ DATES N DATES PAYDAY 1 

DAY NUMBER FOR ASTRONOMERS [ MOONPHASE ] 

DELETE SPECIFIC STRING FROM STRUCTURE [ LIM ] 

DELETE TRAILING INSIGNIFICANT CHARACTERS OR VALUES 

DIFFERENCES BETWEEN ADJACENT ELEMENTS [ UNSCAN ] 

DISPLAY CHARACTERISTICS OR CONTENTS OF VARS SELECTIVELY 

DISTRIBUTIVE ROUNDING OF A VECTOR TO ARBITRARY SCALAR UNIT 

EDIT LATENT EXPRESSION OR CHARACTER STRUCTURE [ SEDIT "! 

EDIT MATRIX 

EDIT MULTIPRECISION INTEGERS INTO CANONICAL FORMAT 

ERECT WORD MATRIX FROM CHARACTER STRUCTURE [ DLTMB 1 

EXPAND LOGICAL VECTOR 

EXTEND THE » | ' IN REPORT FORMATTING [ ROWINDICES ] 

EXTEND VECTOR WITH LAST VALUE 

EXTENDS ' | » IN REPORT FORMATTING 

EXTRACT CITED STRINGS FROM CHARACTER ARRAYS 

FRAME AN ARRAY [ MATRIX CHARACTER ] 

FREQUENCY DISTRIBUTION OF ELEMENTS [ SORTDA KFORM 1 

GENERATE ASCENDING ROW INDICES C AV NFORM LJNFORM 1 

GENERATE INDICES OR OTHER EQUAL INCREMENTS BETWEEN LIMITS 

GENERATE SUFFICIENT ENCODING POSITIONS 

LEFT JUSTIFY ANY ARRAY [ DLB RJUST DL 1 

LISTS A FUNCTION IN STANDARD FORM 

LOCATE ONES IN NUMERIC STRUCTURE 

LOCATE STRUCTURED DATA 

MATRIX ROW IOTA 

MEASURE FORMATTED MATRIX 
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LOGICAL 

AMORTIZE 

ADD 

DIV 

FADD 

FDIV 

FEXP 

FMUL 

FSQRT 

FSUB 

MUL 

SQRT 

SUB 

TABULATE 

TO 

PAD 

BAR GRAPH 

PREEDIT 

BESIDE 

PROMPT 

HEADER ON 

REPL 

FILLS 

TIME 

FIRSTM 

WORD 

DREP 

ROUNDS 

SHAPE 

PREPARE 

TCC 

TLU 

TRUNC 

ULINE 

VFORM 

ZDIV 



MISCELLANEOUS [ INTEGER FLOATING EMPTY CHARACTER ] 

MORTGAGE CALCULATION BY MONTHS 

MULTIPRECISION INTEGER ADDITION 

MULTIPRECISION INTEGER DIVISION 

MULTIPRECISION FLOATING POINT ADDITION 

MULTIPRECISION FLOATING POINT DIVISION 

MULTIPRECISION FLOATING POINT EXPONENTIAL FUNCTION 

MULTIPRECISION FLOATING POINT MULTIPLICATION 

MULTIPRECISION FLOATING POINT SQUARE ROOT 

MULTIPRECISION FLOATING POINT SUBTRACTION 

MULTIPRECISION INTEGER MULTIPLICATION 

MULTIPRECISION INTEGER SQUARE ROOT 

MULTIPRECISION INTEGER SUBTRACTION 

NUMERIC STRUCTURES IN CONTROLLED FORMAT T HANG 1 

NUMERIC VECTORS IN EQUAL INCREMENTS [ BY IN FROM 1 

PADS ARRAYS WITH BLANKS OR ZEROS 

PLOT HORIZONTAL INTEGER BARGRAPHS 

PREPARE MATRIX FOR FUNCTION -LIKE EDITING [ POSTED IT n 

PRESENTS TWO STRUCTURES SIDE BY SIDE IN REPORT FORMAT 

PROMPT AND CHECK TERMINAL ENTRY OR DEFAULT 

PUTS A HEADING ON A REPORT [ COMPARE ] 

REPLACE ALL OCCURRENCES OF ELEMENT IN ARRAY 

REPLACE VACANT ELEMENTS [ CFORMAT CONFORM STRUCT A 1 

RUNNING TIME AND NEW SPACE FOR AN APL STATEMENT [ ALT ] 

SELECT FIRST OR ONLY APPEARANCE IN MATRIX t FIRSTV 1 

SELECT NTH WORD IN CHARACTER STRUCTURE [ DTMB 1 

SELECT UNIQUE ELEMENTS FROM ANY STRUCTURE 

SELECTIVE SYMMETRICAL ROUNDING 

SHAPE MATRIX FROM CHARACTER STRING 

STANDARDIZE STRUCTURE FOR REPORT FORMATTING [ IF ] 

SYSTEM INDEPENDENT TERMINAL CONTROL CHARACTERS 

TABLE LOOK-UP OF STRUCTURED ARGUMENTS [ IS ] 

TRUNCATE HIGHER AND LOWER ORDER DIGITS 

UNDERLINE SPECIFIED ROWS OF CHARACTER MATRIX [ U SCORE 1 

VARIABLE FORMAT BY ROW OF A MATRIX [ ESCAPE ESCAPEX 1 

ZERO TOLERANT DIVISION [ CDIV ] 
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Primary Function Names vs. Abstract Sorted by Function Name 



ADD 

ADDCOLS 

ADDROWS 

ADJUSTDOWN 

ADJUSTUP 

ALPREC 

AMORTIZE 

BAR GRAPH 

BESIDE 

BLANK 

CAN 

CCAT 

CENTERON 

CHAR 

CITED 

COLLECT 

COMB 

CONV 

CVEC 

DATE 

DAYNO 

DAYS 

DEC 

DIFF 

DIV 

DREP 

DROUNDS 

DT 

EASTER 

EDIT 

ENC 

ERECT 

EXTEND 

FADD 

FDIV 

FEXP 

FILLS 

FIRSTM 

FIX 

FLOAT 

FMUL 

FORMAT 

FRAME 

FRAMETEST 

FREQ 

FSQRT 

FSUB 

GRADEUP 

HEADERON 

INDEX 

LISTFN 

LJUST 

LOC 

LOGICAL 

MEDIT 



MULTIPRECISION INTEGER ADDITION 

ADD COLUMNS TO A MATRIX VECTOR OR SCALAR 

ADD ROWS TO A MATRIX VECTOR OR SCALAR 

EXTEND THE ' | * IN REPORT FORMATTING [ ROWINDICES 1 

EXTENDS ' | ' IN REPORT FORMATTING 

ALTER PRECISION OF A SCALAR OR MULTIPRECISION NUMBER 

MORTGAGE CALCULATION BY MONTHS 

PLOT HORIZONTAL INTEGER BARGRAPHS 

PRESENTS TWO STRUCTURES SIDE BY SIDE IN REPORT FORMAT 

DELETE SPECIFIC STRING FROM STRUCTURE T LIM 1 

EDIT MULTIPRECISION INTEGERS INTO CANONICAL FORMAT 

CATENATE BY COLUMNS [ VERTAB C FOR MAT CM AT R IX ROWFORM 1 

CENTERS AND CATENATES TWO STRUCTURES T CENTER ~\ 

BUILD CHARACTER ARRAY TO NUMERIC PATTERN 

EXTRACT CITED STRINGS FROM CHARACTER ARRAYS 

COLLECT AND SUMMARIZE COEFFICIENTS OF COMMON CODES 

ALL COMBINATIONS OF ELEMENTS [ DEBLANK UNIQ 1 

CONVERT DECIMAL VALUES TO ANY BASE [ DIGITS CONFRAC 1 

BUILD COMPRESSION OR LOGICAL VECTOR 

COMPUTE NORMAL DATE FROM ASTRONOMERS' DAY NUMBER 

DAY NUMBER FOR ASTRONOMERS [ MOONPHASE 1 

DATE CALCULATIONS [ DATES NDATES PAYDAY ] 

CONVERT TO DECIMAL 

DIFFERENCES BETWEEN ADJACENT ELEMENTS [ UN SCAN 1 

MULTIPRECISION INTEGER DIVISION 

SELECT UNIQUE ELEMENTS FROM ANY STRUCTURE 

DISTRIBUTIVE ROUNDING OF A VECTOR TO ARBITRARY SCALAR UNIT 

DELETE TRAILING INSIGNIFICANT CHARACTERS OR VALUES 

COMPUTE THE DATE OF EASTER 

EDIT LATENT EXPRESSION OR CHARACTER STRUCTURE [ SEDIT 1 

GENERATE SUFFICIENT ENCODING POSITIONS 

ERECT WORD MATRIX FROM CHARACTER STRUCTURE [ DLTMB 1 

EXTEND VECTOR WITH LAST VALUE 

MULTIPRECISION FLOATING POINT ADDITION 

MULTIPRECISION FLOATING POINT DIVISION 

MULTIPRECISION FLOATING POINT EXPONENTIAL FUNCTION 

REPLACE VACANT ELEMENTS [ CFORMAT CONFORM STRUCT A 1 

SELECT FIRST OR ONLY APPEARANCE IN MATRIX T FIRSTV "\ 

CONVERT TO MULTIPRECISION INTEGER 

CONVERT TO MULTIPRECISION FLOATING POINT [ SCALE 1 

MULTIPRECISION FLOATING POINT MULTIPLICATION 

CONVERT MULTIPRECISION NUMBER TO CHARACTER STRING 

FRAME AN ARRAY [ MATRIX CHARACTER ] 

CHECKS A MATRIX FOR FRAMING 

FREQUENCY DISTRIBUTION OF ELEMENTS [ SORTDA KFORM ] 

MULTIPRECISION FLOATING POINT SQUARE ROOT 

MULTIPRECISION FLOATING POINT SUBTRACTION 

GENERATE ASCENDING ROW INDICES [ AV NFORM LJNFORM ] 

PUTS A HEADING ON A REPORT [ COMPARE ] 

COLUMN INDEX IN MATRIX B WHOSE MEMBERS ALL BELONG TO A 

LISTS A FUNCTION IN STANDARD FORM 

LEFT JUSTIFY ANY ARRAY [ DLB RJUST DL 1 

LOCATE STRUCTURED DATA 

MISCELLANEOUS [ INTEGER FLOATING EMPTY CHARACTER ] 

EDIT MATRIX- 
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MUL 

M2V 

NUMBLANKCOLS 

ON 

ONESIN 

OUTPUT 

PAD 

PI 

PREEDIT 

PREPARE 

PROMPT 

QPROBF 

RCAT 

REPL 

RIOTA 

ROMAN 

ROUNDS 

SHAPE 

SQRT 

STATUS 

SUB 

TABS 

TABULATE 

TCC 

THRU 

TIME 

TLU 

TO 

TRUNC 

ULINE 

VARS 

VFORM 

WIDTH 

WORD 

XV EC 

ZDIV 



MULTIPRECISION INTEGER MULTIPLICATION 

COMPRESS CHARACTER MATRIX EXPAND RESULT [ V2M "I 

COUNTS BLANK COLUMNS AT SIDES OF STRUCTURE 

CONFORM AND CATENATE ANY STRUCTURES 

LOCATE ONES IN NUMERIC STRUCTURE 

CENTER HEADINGS OVER FORMATTED COLUMNS C CNTR DMZ NEXT A ] 

PADS ARRAYS WITH BLANKS OR ZEROS 

COMPUTE PI TO ARBITRARY PRECISION 

PREPARE MATRIX FOR FUNCTION-LIKE EDITING C POSTEDIT "I 

STANDARDIZE STRUCTURE FOR REPORT FORMATTING [ IF ] 

PROMPT AND CHECK TERMINAL ENTRY OR DEFAULT 

COMPUTE CHI SQUARE PROBABILITY FUNCTION 

CATENATE STRUCTURES BY ROWS [ COLFORM CHARACTER VERT "1 

REPLACE ALL OCCURRENCES OF ELEMENT IN ARRAY 

MATRIX ROW IOTA 

CONVERT INTEGER TO ROMAN NUMERALS 

SELECTIVE SYMMETRICAL ROUNDING 

SHAPE MATRIX FROM CHARACTER STRING 

MULTIPRECISION INTEGER SQUARE ROOT 

CURRENT SESSION AND WORKSPACE STATUS [ NOW 1 

MULTIPRECISION INTEGER SUBTRACTION 

COMPARE REQUIRED TAB SETTINGS TO EXISTING ONES [ COLNO 1 

NUMERIC STRUCTURES IN CONTROLLED FORMAT [ HANG 1 

SYSTEM INDEPENDENT TERMINAL CONTROL CHARACTERS 

GENERATE INDICES OR OTHER EQUAL INCREMENTS BETWEEN LIMITS 

RUNNING TIME AND NEW SPACE FOR AN APL STATEMENT [ ALT 1 

TABLE LOOK-UP OF STRUCTURED ARGUMENTS [ IS 1 

NUMERIC VECTORS IN EQUAL INCREMENTS [ BY IN FROM 1 

TRUNCATE HIGHER AND LOWER ORDER DIGITS 

UNDERLINE SPECIFIED ROWS OF CHARACTER MATRIX [ US CORE 1 

DISPLAY CHARACTERISTICS OR CONTENTS OF VARS SELECTIVELY 

VARIABLE FORMAT BY ROW OF A MATRIX [ ESCAPE ESCAPEX 1 

MEASURE FORMATTED MATRIX 

SELECT NTH WORD IN CHARACTER STRUCTURE [ DTMB ] 

EXPAND LOGICAL VECTOR 

ZERO TOLERANT DIVISION [ CDIV ] 



109 



INDEX 

Function Page 

ADD 47 

ADDCOLS 1 

ADDROWS 2 

ADJUSTDOWN 24 

ADJUSTUP 2 5 

ALPREC 4 8 

ALT 45 

AMORTIZE 6 3 

AV 11 

BARGRAPE 2 6 

BESIDE 2 7 

BLANK 2 8 

57 76 

CAN 49 

CCAT 3 

CDIV 78 

CENTER 2 9 

CENTERON 2 9 

CFORMAT 84 

CHAR 4 

CHARACTER 9 

CITED 3 

CMATRIX 3 

CNTR 3 6 

COLFORM 16 

COLLECT 31 

COLNO 43 

COMB 79 

COMPARE 3 3 

CONFORM 84 

CONFRAC 64 

CONV 6 4 

CVEC 8 

DATE 6 5 

DATES 6 7 

DAYNO 66 

DAYS 6 7 

DEBLANK 79 

DEC 6 8 

DIFF 5 

D IV 5 

DL 3 4 

DLB 34 

DLTMB 7 

DMZ 3 6 

DREP 3 2 

DROUNDS 6 9 

DT 81 

DTMB 2 3 

EASTER 82 



INDEX (cont.) 

Function Page 

FDIT 6 

EMPTY 86 

ENC 70 

ERECT 7 

ESCAPE 21 

ESCAPEX 21 

EXTEND 8 3 

FADD 51 

FDIV 52 

FEXP 5 3 

FILLS 84 

FIRSTM 8 

FIRSTV 8 

FIX 54 

FLOAT 55 

FLOATING 86 

FMUL 5 6 

FORMAT 5 7 

FRAME 9 

FRAMETEST 10 

FREQ 71 

FROM 76 

FSQRT 5 8 

FSUB 59 

GRADEUP 11 

HANG 39 

HEADERON 3 3 

IF 3 8 

IN 76 

INDEX 12 

INTEGER 86 

IS 9 

KFORM 71 

LIM 2 8 

LISTFN 40 

LJNFORM 11 

LJUST 34 

LOC 85 

LOGICAL 86 

MATRIX 9 

MEDIT 13 

MOONPHASE 66 

MUL 60 

Ml V 14 

NDATES 6 7 

NEXTA 36 

NFORM 11 

NOW 42 

NUMBLANKCOLS 87 
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INDEX (cont.) 

Function Page 

ONES IN 8 8 

OUTPUT 3 6 

PAD 3 7 

PAYDAY 67 

PI 72 

POSTEDIT 15 

PREEDIT 15 

PREPARE 3 8 

PROMPT 41 

QPROBF 73 

RCAT 16 

REPL 17 

RIOTA 18 

RJUST 3 4 

ROMAN 74 

ROUNDS 7 5 

ROWFORM 3 

ROWINDICES 2 4 

SCALE 55 

SEDIT 6 

SHAPE 19 

SORTDA 71 

SQRT 61 

STATUS 42 

STRUCT 84 

SUB 62 

TABS 43 

TABULATE 39 

TCC 44 

THRU 8 9 

TIME 4 5 

TLU 9 

TO 76 

TRUNC 77 

ULINE 2 

UNIQ 79 

UNSCAN 5 
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VARS 46 
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